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ABSTRACT 


A  16  -  level  color  display  computer  program  for  use  with 
an  ultrasonic  acoustic  imaginq  system  is  presented.  This 
display  system  is  the  second  half  of  a  two  part  ultrasonic 
imaqing  system  built  at  the  Naval  Postgraduate  School.  The 
RAMTEK  GX-100A  display  terminal  and  a  POP  11/50  digital  com- 
puter were  used  as  the  display  system.  The  software  imple- 
mentation and  C  language  are' discussed.  Photographs  of  ac- 
tual display  usinq  an  experimental  data  tape  and  the  comput- 
er program  are    also  included. 
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I  INTRODUCTION 


This  thesis  deals  with  the  development  of  a  16-level 
color  displav  computer  proaram,  for  use  in  a  computer  aided 
acoustic  imaginq  system.  The  basic  imaqing  system  consists 
of  a  data  acauisition  system  [11/  a  computer  program  for 
converting  the  data  and  controlling  the  display  hardware* 
and  the  hardware  for  disolaying  the  outout. 

The  hardware  display  portion  utilizes  a  RAMTEK  GX-100A 
color  raster  scan  display  device  that  is  controlled  by  a 
PDP-11/50  digital  computer.  This  allows  for  real-time  com- 
puter controlled  displays  to  be  presented. 

Reference  111  discusses  in  deoth  the  specific  methods 
used  for  data  collection  and  will  not  be  elaborated  upon  in 
this  t  hesi  s . 

Section  II  Drovides  bachground  information  about  acoust- 
ical imaqing  and  the  computer  proaram  will  be  discussed  in 
Section  III  of  this  thesis.  Actual  proqram  listinqs  are 
given  in  Appendix  D.  The  equipment  utilized  for  the 
disolayinq  of  data  will  also  be  discussed  in  Section  ITI  of 
this  t  hesi  s . 

In  order  to  confirm  the  system  realiability  a  data  set 
was  read  into  the  PDP-11/50  and  was  used  as  the  development 
t  ape. 


II  BACKGROUND 


A.   ACOUSTICAL  IMAGING  (31 

By  usina  coherent  ultrasonic  waves  of  sound  instead  of  a 
beam  of  coherent  light  to  "illuminate"  an  object  one  can 
create  acoustical  holograms  that  become  three-dimensional 
pictures  when  illuminated  by  laser  light. 

In  order  to  produce  an  acoustical  hologram  the  scene  is 
"illuminated"  with  a  pure  tone  of  sound.  The  objects  dis- 
turb the  sound  waves  and  produce  interference  patterns. 
This  procedure  is  discussed  in  detail  in  Ref.  [21  The  pat- 
tern can  be  recorded  in  various  ways.  Once  recorded  the 
acoustical  hologram  can  be  reconstructed  with  a  laser  beam 
exactly  as  if  it  were  an  optical  hologram.  Other  techniques 
such  as  comouter  orocessinq  can  also  be  used  to  reconstruct 
the  ob j  ec t  s . 

The  interaction  of  sound  with  solids  and  liguids  is  dif- 
ferent than  the  interaction  of  electro-magnetic  radiation. 
Sound  can  travel  a  considerable  distance*  throuqh  dense* 
homogenous  matter  and  lose  little  energy  and  yet  it  will 
lose  a  significant  amount  of  enemy  when  it  Dasses  through 
an  interface. 
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This  loss  is  due  to  reflection  at  the  interface*  which  is 
converse  to  the  energy  losses  that  occur  in  e 1 ec t ro-maqnet i c 
radiation  Therefore  sound  can  be  significantly  effective  in 
medical  diagnosis*  in  non-destructive  test ina  and  in  seeina 
underwater  and  underground  because  it  is  mostly  the  discon- 
tinuities of  the  internal  oraans  tumors*  flaws*  submeraed 
objects  or  subterranean  strata  rather  than  the  bulk  matter* 
that  is  of  interest  to  the  observer. 

Acoustical  imaginq  is  not  new?  there  are  sonar  devices 
that  oroduce  oictures  similar  to  those  on  a  radar  screen* 
and  can  be  used  for  prosDectina  for  oil  and  minerals.  Simi- 
lar scanning  methods  are  also  in  use  by  physicians  for  the 
detection  of  brain  tumors  and  for  examing  the  unborn  child. 
In  the  latter  examples  the  sound  is  a  frequency  of  between 
one  and  ten  megahertz.  Another  technique  emoloys  an  acousti- 
cal "camera".  In  this  method  sound  waves  bounced  off  an  ob- 
ject once  focused  with  an  acoustical  lens  onto  an  imaoe  con- 
verter that  translates  the  patterns  of  sound  intensity  into 
a  pattern  of  visible  liaht. 

The  limiting  feature  of  both  these  conventional  methods 
is  that  the  imaqes  show  only  two  dimensions.  They  are  two- 
dimensional  because  the  methods  detect  only  the  intensity 
(the  sauare  of  the  amoltitude)  of  the  sound  waves  in  the 
sound  imaqes.  What  the  conventional  methods  are  unable  to 
record   is   the  phase  information*  that  is*  the  arrival  time 
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of  the  crest  of  the  wave  from  the  object  with  resDect  to  the 
arrival  time  of  the  crest  of  a  reference  wave  of  the  same 
f  reguencv - 

The  most  powerful  feature  of  holography  is  that  phase 
information  as  well  as  intensity  information  is  retained  in 
the  hologram  and  can  he  subsequently  "played  back"  in  the 
ODtical  image.  Thus  in  acoustical  holography  there  is  a  to- 
tal transfer  of  information  from  the  acoustical  wave  field 
to  the  visible  optical  wave  field. 

One  type  of  acoustic  holograohic  system  which  has  been 
investigated  is  that  which  uses  a  scanning/  detecting  trans- 
ducer moving  through  a  raster  nattern  in  the  holoaraphic 
plane.  A  tyoical  system  is  illustrated  in  F i a .  1.  The  pro- 
cedure involved  was  first  described  in  an  elementary  form  bv 
Thurstone  in  1966  [ 5 ] .  Normally  water  is  used  as  the  medium 
for  the  acoustic  propagation.  A  sound  source  is  placed  on 
one  side  of  the  object  and  a  scanning  hydroohone  on  the  oth- 
er. The  use  of  a  reference  beam  may  be  eliminated  by  means 
of  electronic  simulation.  The  acoustic  object  beam  alone  is 
detected  and  the  detector  outout  is  added  electronically  to 
reference  signal  coming  from  the  same  signal  generator  that 
supdies  power  to  the  irradiating  sound  source.  The  result- 
ing signal  can  then  be  processed  to  measure  amolitude  and 
phase  which  are  subseouentlv  recorded.  In  one  version  the 
signal   is   used   to  modulate  the  brightness  of  a  small  1 amo 
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that  travels  throuqh  a  raster  Dattern  in  synchronism  with 
the  scanning  hydroohone.  The  lamp  briqhtness  as  a  function 
of  cost  ion  can  be  recorded  on  ohotoqraphic  film. 

What  has  been  described  thus  far  is  the  most  convention- 
al of  the  ooi n t -by-oo i nt  scannina  systems.  However  it  is 
possible  to  scan  in  many  other  ways.  One  example  is  sug- 
gested bv  the  fact  that  reciprocity  holds  between  the  i  1  - 
luminatinq  transmitter  and  the  sensor.  In  this  method,  the 
point  transmitter  is  scanned  over  the  hologram  aperature 
while  the  sensor  remains  fixed. 


it 


*S 
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Point  by  Point  Scanninq  System 
F i  qure  1 


13 


Another  example  allows  both  the  transmitter  and  sensor 
to  be  ganoed  together  and  made  to  scan  as  a  unit  over  the 
holograDhic  aoerture.  And  yet  another  method  is  to  hold 
both  the  transmitter  and  sensor  stationary  and  scan  the  ob- 
ject to  obtain  an  eauivalent  hologram.  One  of  the  problems 
with  all  these  aPDroaches  is  that  the  scannina  is  inherently 
slow*many  transits  of  the  scanninq  transducer  are  involved 
for  wide  band  holograms.  In  order  to  overcome  this  oroblem 
various  modifications  have  been  proposed^several  of  which 
involve  the  use  of  transducer  arrays.  The  arrays  may  be  ei- 
ther of  one  or  two  dimensions  and  may  be  sampled  or  scanned 
mechanically  or  .electrically.  In  general  these  systems 
ooerate  faster  but  typically  do  not  provide  as  much  image 
information  because  of  limations  on  the  number  and  uniformi- 
ty of  the  elements  of  the  array. 

As  reported  in  Ref.  i2) ,  a  Dreliminairy  version  of  ul- 
trasonic imaging  system  with  capability  of  two  dimensional 
coherent  data  processing  and  comouter  image  processing  has 
been  built  and  tested  at  the  Naval  Postoraduate  School 
CNPS). 

Reference  [?]  also  indicated  that  further  work  was  re- 
guired  to  develoD  more  software  for  processing  and  display- 
ing of  images  produced  by  the  system.  This  thesis  deals 
with  efforts  in  this  direction. 
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B.   DATA  COLLECTION 

The  type  of  system  from  which  the  data  for  this  thesis 
was  created  is  described  in  detail  in  Ref.  r 21  . 

Introductory  information  is  included  herein.  The  object 
is  insonified  by  a  6"  (15.24  cm.)  diameter  qold  coated 
quart?  tranducer  The  transmitted  or  reflected  wave  is 
detected  coherently  (ie.#both  amplitude  and  phase)  in  some 
portion  of  a  diffraction  olane  located  an  arbitary  distance 
from  the  object.  Detection  of  the  comolex  wave  is  accom- 
plished by  a  rasterscan  of  a  sinqle  .04"  (1.01mm)  diameter 
PZT-5  ceramic  receiver  with  a  fundamental  freauency  of-  1.014 
MHz.  Piezoelectric  receivinq  elements  offer  an  ideal  combi- 
nation of  linearity  and  sensitivityfbl  for  this  application. 

After  wave  detection  ,  the  amolitude  and  phase  of  the 
wave  are  sampled^  dioitized*  and  recorded.  The  recorded 
data  is  then  entered  in  the  comouter  processina  oortion  of 
the  system  at  a  later  time.  As  indicated  the  Naval  Postara- 
duate  School  (NPS)  system  consists  of  two  parts  :  the  data 
acquisition  section  and  the  comouter  orocessinq  and  display 
section.  The  emphasis  of  this  thesis  has  been  placed  on  the 
presentation  of  the  computer  oroqram  used  tn  display  the 
data  that  was  produced  in  the  system  previously  discussed. 
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Ill   DISPLAY  SYSTEM 


A.   GENERAL  DESCRIPTION 

The  disolay  system  used  is  currently  in  operation  at 
the  NPS  utilizinq  a  PDP  -  11/50  digital  computer  interfaced 
with  a  RAMTEK  GX  -  100A  terminal  and  disday  screen,  to  gen- 
erate the  16  -  level  color  code  displays  of  the  diaitized 
data* 

Eigure  ?  shows  a  basic  block  diagram  of  the  PDP  -  11  and 
RAMTEK  GX  -  100A   system  as  used. 

The  RAMTEK  GX  -  100A  graohics  display  system  utilizes  a 
raster  scan  technique*  with  the  disolay  image  data  beina  ex- 
tracted from  an  internal  refresh  memory.  The  RAMTEK  system 
in  operation  at  the  NPS  Computer  Laboratory  is  hosted  by  the 
PDP  -  11/50  computer  and  is  accessed  through  this  comouter 
and  its  PWB/UNIX  operatina  system,  from  one  of  the  terminals 
in  the  1 ab . 
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The  PWB/UNIX  operating  system  is  a  library  of  executable 
statements  that  allow  system  oDeration  to  be  controlled  by 
simple  call  statements.  The  C  languaae  (71  proorams  dis- 
cussed in  this  thesis  are  written  for  execution  under  the 
PWB/UNIX  oDeratina  system  and  use  many  of  these  library 
calls. 
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Block  Diaqram  o*  the  Display  System 
F  i  qu re  ? 
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RAMTEK  Equipment 


The  RAMTEK  GX  -  100A  is  a  color,  raster  scan  display 
device,  the  heart  of  which  is  a  color  cathode  ray  tube,  not 
unlike  a  home  color  television  set.  The  method  for  generat- 
ing its  raster  scan  picture  is  identical  to  commercial 
cathode  ray  tubes.  This  is  the  only  real  similarity.  The 
RAMTEK  gets  the  information  for  its  picture  from  a  special 
video  generator  which  reads  the  contents  of  a  MOS  refresh 
memory  which  contains  all  the  information  needed  to  produce 
an  image  on  the  screen. 

It  is  not  the  intent  of  this  thesis  to  discuss  the 
details  of  how  the  electronics  function,  but  to  inform  the 
user  as  to  how  to  use  the  device  to  disolay  the  given  data. 
A  more  detailed  discussion  of  the  functioning  of  the  RAMTEK 
can  be  found  in  the  RAMTEK  GX  -  100A  [81  and  RAMTEK  GX  -1008 
19]  programmers  manual. 


2. 


Ooe  rati  on 


The  RAMTEK  system  consists  of  a  software  interface 
to  the  user,  a  display  generator,  keyboard,  video  lookuD 
table  and  a  cathode  ray  tube.  Fiqure  3  illustrates  their 
relationship. 
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The  user  oroqram  executes  on  the  PDP  -11/S0  comput- 
er. When  the  appropriate  instructions  are  executed,  the  in- 
terface between  the  program  and  the  display  generator  for 
the  RAMTEK  is  activated.  Information  can  be  sent  via  the 
interface  to  the  display  aenerator  from  the  user  program  or 
from  the  keyboard.  Information  can  also  be  sent  from  the 
keyboard  via  the  interface  to  the  user  program.  The  display 
generator  interprets  its  instructions  and  constructs  the 
display  in  its  ROM  memory.  The  imaae  is  generated  on  the 
CRT  according  to  the  colors  contained  in  the  video  lookup 
table.  Any  image  will  remain  (  unless  over  -  written  ),  for 
an  indefinite  period  of  time  in  the  ROM  memory. 

The  RAMTEK  graphics  disolay  system  in  the  NPS  Com- 
puter Laboratory  utilizes  a  raster  scan  cathode  ray  tube 
with  a  screen  resolution  of  240  horizontal  lines  and  640 
elements  on  each  line.  Each  SDecific  element  is  referred  to 
as  a  pixel.  This  device  has  a  high  element  resolution  and  a 
low  line  resolution.  Therefore*  the  quality  of  certain  i  m  - 
aaes  on  the  RAMTEK  may  be  less  than  desirable.  Lines  that 
are  not  horizontal  or  vertical  are  drawn  with  a  noncon- 
tinous;  staircase  effect.  When  utilizing  the  device  these 
resolution  factors  should  be  kept  in  mind/  espically  when 
operating  in  one  of  the  data  modes. 
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Color  is  qenerated  by  mixina  three  primary  colors: 
b1ue#  areen,  and  red  each  in  varyinq  intensities  from  0  to 
15. 
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RAMTEK  Disolay  System 
Figure  3 
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a. 


Virtual  Screen  Addressing 


The  initialization  of  R  A  M  T  E  K  ,  which  is  accom- 
plished by  the  execution  of  the  instruction  "ramtekO", 
sets  various  default  values.  The  virtual  screen  is  set  to  a 
standard  cartesian  coordinate  system,  with  (0.0,0.0)  at  the 
lower  left  corner  of  the  screen,  and  (100.0,100.0)  at  the 
uooer  riqht  corner.  This  virtual  screen  can  he  redefined  by 
execution  of  a  "sc reen ( x , y , x 1 , y 1 ) "  instruction,  where  x  and 
y's  are  float inq  point  numbers. 

Upon  execution  of  ramtekO,  a  shades  of  grey 
color  table  ''table  0)  is  loaded,  with  color  entry  15  of  the 
table  enabled  for  display  purooses.  Tt  selects  the  al- 
phanumeric control  mode  and  ooens  the  RAMTEK  for  readina  and 
writing  and  finally  erase  the  screen  of  any  previous  images 
or  displays. 

There  are  three  modes  of  addressing  the  screen, 
absolute,  indexed,  and  relative.  The  program  in  this  thesis 
was  done  in  the  absolute  mode,  in  which  the  user  specifies  a 
soecific  location  on  the  user  defined  screen  by  issuina  a 
"st rt xy ( x , y ) "  instruction.  The  'x'  and  'y'  values  establish 
the  current  ooerating  oosition  (COP)  location.  A  discussion 
of  the  other  modes  of  addressino  can  be  found  in  Ref.  1101. 
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b. 


Control  Modes 


The  RAMTEK  operates  in  any  one  of  eiqht  modes. 
Each  mode  has  associated  with  it  certain  control  flags  which 
modify  the  operation  of  the  specific  instruction  within  each 
mode.  Table  I  summarizes  the  control  modes  and  control  flags 
and  their  relationshios. 


MODE 


numbe  r 


name 


TABLE  I 
CONTROL  MOOES  AND  CONTROL  FLAGS 

CONTROL  FLAGS 
IX    BK    AW    Dw    FP 


0  ALPHANUMERIC 

1  TRANSVERSE  DATA 

2  RASTER  DATA 

3  COMPLEX  DATA 

4  GRAPHIC  VECTOR 

5  GRAPHIC  PLOT 

6  GRAPHIC  CARTESIAN 

7  GRAPHIC  ELEMENT 
definitions:   IX  -  Index  Addressing 

8K  -  Reverse  Rackqround 

AW  -  Additive  Write 

DW  -  Double  Width 

FP  -  Fixed  Point 

X   -  Control  "f  1  a  a  has  an  effect  in  this  mode 


X     X  X     X 

X     X  X      X 

X      X  X     X 

X      X  X      X 
XX  X 

XX  XX 

XX  X 

XX  X 
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(1) 


Alphanumeric  Data  Mode.   The  alphanumer- 


ic data  mode  is  the  default  mode  uDon  initialization  of  the 
RAMTEK.  The  COP  is  established  by  the  execution  of  a 
stPtxv(xfy)  instruction.  Followinq  this  instruction  the  in- 
struction "stroutC  character  strino  ")"  will  allow  a  char- 
acter strino  to  be  output  to  the  RAMTEK  screen.  The  charac- 
ter strina  can  be  no  qreater  than  100  characters  long  beqin- 
ninq  at  the  current  operatinq  position  and  continuing  on  the 
same  line.  After  completion,  an  automatic  line  feed  occurs 
which  defines  a  new  COP  on  the  next  line  at  the  same  start- 
ing point  (  in  x  )  as  the  previous  line. 

When  characters  are  drawn  on  the  RAMTEK 
screen,  the  character  appears  in  the  desianated  color*  while 
the  rest  of  the  screen  is  drawn  in  the  background  color. 
The  description  of  how  the  color  desiqnation  is  accomplished 
will  be  discussed  in  Section  III  -  c  of  this  thesis. 

(2)  Transverse  Data  Mode.  The  typical  use 
of  the  transverse  data  mode  is  to  define  special  symbols  and 
characters  which  can  not  be  found  in  the  standard  character 
set . 
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The  various  data  modes  all  have  one  thinq 
in  common*  namely  the  "dat a (name / m ) "  instruction.  This  in- 
struction causes  the  raw  data  that  is  passed  in  a  linear  ar- 
ray Dointed  to  by  "name"  to  be  displayed  on  the  screen 
depending  upon  the  current  control  mode.  Here  "m"  is  the 
number  of  bytes  in  the  inteaer  array  named  'name'. 

The  execution  of  the  data(  name;  m)  in- 
struction writes  the  information  in  raw  format*  that  is  each 
data  byte  is  interDreted  as  a  single  bit  per  oixel  descrip- 
tion of  eight  consecutive  pixels  along  a  real  screen  line. 
As  is  illustrated  in  Fia.  4.   execution  of  the  instructuion: 

data(015022, 
133000, 

oooioi); 

causes  each  of  the  three  words  (01502?,  133000,  000101)  to 
be  converted  to  binary  representation.  Fiaht  binary  digits 
(ones  or  zeros)  are  then  used  sequentially  to  produce  an  im- 
aqe  with  each  pixel  that  corresponds  to  a  binary  one  beina 
intensified,  while  the  zeros  remain  the  background  color. 
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0  1 


0 


data  (015022, 
133000, 
000101); 


0001  lOl'O  00010010 
1011011000000000 
0000000001000001 
0  0   0   10   1 


old  COP 


new  Cop 


Transverse  Oata  Mode 
Fiqure  H 
2S 


(3)  Raster  Data  Mode*  The  raster  data  mode? 
except  for  the  direction  of  the  writing  process  is  identical 
to  the  transverse  data  mode.  The  consecutive  bytes 
transmitted  by  the  dataO  instruction  are  written  horizon- 
tally from  left  to  riaht  without  starting  a  new  line  after 
eight  hits  are  displayed.  This  is  illustrated  in  Fig.  S 
where  the  completion  of  eight  bits  ("pixels)  does  not  cause 
the  COP  to  move  to  a  new  line. 

(4)  Complex  Data  Mode.  This  mode  writes  data 
on  the  screen  in  the  same  manner  that  the  raster  data  mode 
does.  However  each  pixel  is  described  by  four  bits  of  data 
instead  of  three.  Thus,  a  sinqle  data  word  describes  four 
pixels  instead  of  two  as  in  the  previous  data  modes. 

The  color  of  each  oi  xel  beinq  passed  is  de- 
fined by  the  four  bits  that  are  assigned  to  that  pixel. 
This  mode  over-rides  the  color  designated  by  the  "colorO" 
instruction.  Unusual  and  unrealistic  displays  and  images 
can  be  very  easily  achieved  by  the  use  of  this  data  mode. 
Figure  6  illustrates  how  a  data  word  is  interpreted  in  this 
mode.  The  data  word  is  converted  to  binarv  representation 
and  each  set  of  four  bits  represent  an  entry  index  of  the 
current  color  table.  The  colors  are  drawn  sequentially  on 
the  screen,  usinq  only  four  pixels  oer  data  word.  The 
colorC)  instruction  will  be  described  in  Section  1 1 T  -  c. 
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0  1 


0 


data(0150?2, 
133000, 
0  0  0101); 


r-N  r^s  **~  ^->r+^ 

0001  101000010010 

101101  1000000000 
0000000001000001 
0  0   0   10   1 


Raster  Data  Mode 
F  i  qure  5 
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data(175163); 


DATA  WORD 


old  COP 


new  COP 


1 


v.  *  - 


4   3 

1111  10100111001 1 


J 


COLOR    TA8LE 


\L 


0 

1 

2 

-»-  3 

a 

5 

6 

->7 

8 

9 

■>10 

1  1 

12 

13 

m 

■>15 


^^ 


ComDlex  Data   Processinq 
Fiqure  6 
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(5)  Graphic  Vector  Morje.  The  four  graphic  modes 
are  used  primarily  for  interactive  drawinq  and  plotting  of 
data  provided  by  the  user.  The  graphic  vector  mode  draws 
lines  between  arbitrary  end  points.  The  starting  point  is 
defined  by  the  existinq  COP  or  it  can  be  defined  by  the  exe- 
cution of  strtxy(x/v)f  to  establish  a  new  COP.  The  end 
points  can  be  defined  by  issuing  either  a  "point (x,v)M  or 
Moointr(x*y)"  instruction.  The  first  uses  absolute  or  in- 
dexed addressing  depending  uoon  the  control  flags  condi- 
tion* and  the  second  uses  relative  addressing.  The  values 
of  Xf  and  y  are  real  and  must  be  exclusively  different  than 
the  current  ocerat inq  point  values.  After  execution,  the 
COP  is  then  the  end  point  of  the  vector  just  drawn.  Thus  a 
linked  line  as  shown  in  Fiq.  7  can  be  drawn  by  issuinq  a 
strtxy()  followed  by  successive  oointC)  instructions. 
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Instrutions: 


setmode(4,0) ; 
strtxyClO. 0,10.0) ; 
do int (5.0,8.0); 

ooint (12.0,9.0) ; 
ooint r(-l .0,2.0) ; 


/*  relative  * / 


(11,11) 


(10,10) 


(5,8) 


(12,0) 


Drawina  vectors  in  Graphic  Vector  Mode 

F  i  qure  7 
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(6)  GraoMc  Plot  ^oHe.  The  displays  generated 
by  the  graphic  Dlot  mode  have  been  implemented  as  a  set  of 
plot  routines  in  the  user  interface.  The  three  routines  are 
"plotptO"  (plots  points)  "olotlnO"  (plots  continious 
lines)/  and  "plothO",  (plots  a  histogram).  Each  of  the 
methods  require  the  user  to  specify  the  points  to  be  plot- 
ted. All  three  plotting  methods  are  illustrated  in  Fig.  8. 
Detailed  instructions  on  their  use  can  be  found  in  Appendix 
B  of  Pef .  (101  . 

(7)  Graohic  Cartesian  Mode.  The  graphic 
cartesian  mode  draws  solid  rectangles  between  arbitrary  end 
points.  The  end  Doints  are  defined  as  the  lower  left  and 
upper  right  corners  of  a  rectanale.  The  COP  is  the  comple- 
tion point  of  the  drawing  unless  a  new  COP  is  defined  with  a 
strtxyO  instruction.  Second  and  subsequent  rectangles  can 
be  drawn  by  the  use  of  point ()  or  oointrO  instructions. 
With  the  fixed  point  flag  setr  a  StrtxyO  instruction  deter- 
mines the  common  point  for  and  between  subsequent  point ()  or 
PointrO  instructions.  Figure  Q  illustrates  these  charac- 
teristics. 
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plotpt ( ) 


pi  oH  n(  ) 


plothO 


Graph  i  c  Plot  Mode 
F  i  qu  re  fl 
3? 


Inst  ruct i  ons : 


setmode (6,0); 

strtxydO.,  10)  ; 

col  or ( 1  )  ; 

Doint (12.  1 4. ) ;  /*  Draw  A  in  color  1  */ 

color(2); 

point (14. #15.);  /*  Draw  B  in  color  2  */ 

fixot(l);  /*  set  fixed  Doint  */ 

strtxy(5.,5.); 

poi nt (3»# 2. ) I    /*  Draw  C  in  color  2  */ 

color(3) ; 

point (7. , 4.) ;  /*  Draw  D  in  color  3  */ 


14, 15) 


,3 

A 

\ 

(12, 14) 

(10,  10) 


(3,2) 


S 


(5,5) 


c 

D 

'■ 

s 


(7,4) 


Graohic  Cartesian  Mode 
F  i  qure  9 
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(8)  Graphic  Element  Mode.  The  graphic  element 
mode  draws  a  single  pixel  on  the  screen  as  determined  bv  a 
pointO  or  a  oointrC)  instruction.  After  execution,  the  COP 
is  on  the  same  real  screen  line  and  one  screen  element  to 
the  right. 
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c .   Color  Usage 

All  images  that  are  displayed  on  the  screen  are 
displayed  accordinq  to  an  entry  in  the  video  look-up  table/ 
which  is  commonly  called  the  color  look-up  table. 

(1)  Defining  Colors.  The  RAMTEK  hardware  de- 
fines colors  by  the  combining  red/  blue  and  green  in  varying 
intensities  to  produce  color.  Since  the  color  lookup  table/ 
(from  which  the  CRT  receives  its  instructions  on  how  to  mix 
the  three  colors/)  stores  information  in  digital  format/  the 
user  is  limited  to  2T12  (4096)  oossible  color  definitions. 
In  order  to  define  an  entry  in  a  color  table/  the  instruc- 
tion Htriple(b/g/r)"  is  used  to  convert  the  three  inout 
parameters  blue  (b)/  green  (g)/  and  red  (r)  into  an  integer 
which  is  used  for  insertion  into  a  color  table  entry.  Each 
entry  represents  the  code  for  a  color  in  a  twelve  bit  word. 
Each  word  is  broken  into  three/  four  bit  binary  numbers 
which  represents  intensities  of  blue/  green/  and  red  to  be 
mi  xed . 

A  color  table  that  can  be  used  for  an  image 
is  limited  to  sixteen  entries/  these  are  the  only  colors 
that  can  be  displayed  at  anv  one  time  on  the  screen.  Entry 
zero  of  the  color  table  is  used  as  the  backqrouno  color/ 
thus  leavinq  the  fifteen  other  colors  for  use  in  displaying 
images  on  the  screen. 
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As  one  becomes  familier  with  the  RAMTEK 
display  it  will  become  obvious  that  many  of  the  "colors"  are 
simply  shades  of  the  same  color,  many  of  which  apoear  to  be 
almost  black  or  almost  white.  It  is  extremely  difficult  for 
an  ordinary  person  to  distinguish  between  (0,0,0)  , 
(0,0,1),  (0,1,0),  or  (1,0,0)  all  of  which  are  very  'close' 
to  bl ack . 

The  RAMTEK  interface  system  permits  the  use 
of  eighteen  separate  color  tables,  the  Hrst  four  tables  (  0 
thru  3  )  are  system  reserved  tables,  and  can  not  be  modified 
in  any  way.  The  user  may  define  as  many  additional  color 
tables  as  desired  up  to  fourteen  others,  as  described  in  the 
following  section.   The  system  color  tables  are: 

table  0  -  shades  of  grey         table  1  -  shades  of  blue 
table  2  -  shades  of  green        table  3  -  shades  of  red 

(2)  Loading  a  Color  Table.  Loading  a  user  gen- 
erated color  table  reouires  a  series  of  operations.  First 
an  integer  array  of  sixteen  words  must  be  declared.  Then  it 
is  necessary  to  load  each  entry  of  the  array  from  zero  to 
fifteen  with  the  sixteen  colors  that  are  desired.  In  order 
to  accomplish  this,  the  t r i p 1 e (b , g, r )  routine  is  used  to 
code  the  ordered  triples  and  then  assign  the  returned  codes 
to  each  entry  in  the  integer  array. 
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After  the  array  has  been  loaded?  the  rou- 
tine "c 1 rtbl (n> name) "  is  used  to  load  the  array  into  the  ac- 
tual color  table*  numbered  '  n  '  ,  where  n  is  the  number  of  the 
table  between  four  and  seventeen,  and  named  'name'.  An  ex- 
ample of  the  code  to  load  a  color  table  is  as  follows: 


int    aa  [161     ; 


/*    declare    a    lb    word    array    */ 


aalO]     =    triDle(0,0,0);       /  *    color    black    */ 

aatl]     =    t r iol e( 15, Or  0) ;     /*    color    blue    */ 

aa  [2]     =    t ri d1 e(0, 1 5, 0) ;     /*    color    areen    */ 

aa(3]     =    t  rid  e(0,0,  15)  ;     /*    color    red    */ 

a  a  1 4  J     =    triple(15,0,8)       /*    color    violet       */ 

aa[151     =    triple    (15,15,15)  /*    color    white    */ 


cl rtbl (5,aa)  ; 


/*  load  color  table  5  with 
the  a  r  ray  aa  */ 
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d.  Programmina  the  RAMTEK 

In  order  to  use  the  RAMTEK  system  it  is  neces- 
sary to  place  orior  to  any  RAMTEK  instructions  in  the  C 
language  program  the  ramtekt)  routine.  This  routine  must  be 
the  first  call  made  in  the  user  Drogram.  It  is  the  initial- 
ization routine  for  the  user  interface  and  it  ooens  the  RAM- 
TEK  device  and  keyboard. 

In  order  to  utilize  the  interface*  when  compil- 
ing a  C  language  orogram  for  RAMTEK  the  system  command  is  : 

%  ramtek  filename. c 


Aopendix  A  contains  a  list  of  reserved  words. 
These  words  should  not  be  used  within  any  user  orograms  that 
utilize  the  user  interface  for  the  RAMTEK  system. 
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B. 


DISPLAY  PROGRAM 


1  .   C  Language 

This  display  system  was  implemented  in  the  C  pro- 
grammina  lanquage  17],  and  is  hosted  by  a  PDP  -  11/50  com- 
puter  in  the  MPS  Computer  Laboratory. 

The  RAMTEK  routines  were  all  oreviousl v  written  in 
the  C  1 anauage  and  were  for  the  most  part  adeauatelv  docu- 
mented in  Ref.  HO],  The  C  1 anquaae  itself  is  well  document- 
ed in  Refs.  [7]  and  [11],  and  allows  the  user  to  write  clear 
and  concise  proarams.  The  C  lanquage  was  available  under  the 
PWB/UNIX  operating  svstem,  which  is  discussed  in  Refs.  1121 
and  [131  . 

A  C  proaram  consists  of  one  or  more  functions,  which 
are  similiar  to  the  functions  and  subroutines  of  a  Fortran 
proaram.  "mainO"  is  such  a  function;  all  C  proarams  must 
have  a  mainO.  Execution  of  the  proaram  beains  at  the  first 
statement  of  main,  and  main  will  usually  simply  call  or  in- 
voke other  functions,  some  which  are  user  defined,  others 
from  libraries. 
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C  lanouaqe  has  four  types  of  variables, 
int   -   inteqer  (  16  bits  ) 
char  -   one  byte  character   (  8  bits  ) 
float  -  sinale-orecision  floatinq  point 
double  -  double  precision  floatinq  point 
There  are  also  arrays  and  structures  of  these   basic 
types*  pointers  to  them  and  functions  that  return  them.   All 
variables  in  C  must  be  declared  and  must  Dreceed   executable 
st  at ement s  . 

The  basic  conditional-  testinq  statement  in  C  is  the 
if  statement*  the  simplest  form  of  an  if  statement  is  : 

if  (  expression  )  statement 
The  expression  is  evaluated  and  if  it  is   true*   the 
statement   is   executed.    Individual   statements  end  with  a 
semi-colon  (  ;  ).    There   can   be   used   an   ootional   else 
c 1 ause . 

The  Relational  operators  are: 
==   equal  to 
i=   not  equal  to 
>    great  er  than 
<    less  than 

>=   qreater  than  or  equal  to 
<=   less  than  or  equal  to 
Tests  can  be  combined  with  "&R"  (  AMD  ),  " ! ! "  (   OR   ),   and 
"l"  (  NOT  ). 


an 
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The  basic  loooinq  mechanism  in  C  is  the  while  state- 
ment.  The  while  statement  is  a  Iood  whose  general  form  is  : 
while  (  expression  )  statement; 
Its  mean  i  nq  is  : 

(a)  evaluate  the  expression 

(b)  if  its  value  is  truer 

do  the  statement  and  qo  back  to  (a). 
The  arithemetic  operators  are       the   usual   add   '+', 
subtract   (minus)   '•'#  multiply  '**#  and  divide  '/'  and  the 
remainder  or  mod  operator  '%'.   The  else  clause  can  be   used 
to  devise  more  elabroate  oroqrams  such  as  : 

if  (  expression  )  statement  1  else  statement^ 
or  to  construct  loqic  that  branches  one   of   several 
ways  : 
i  f  ( .  • . . )  x 

i > 

else  if  (....) 

else  if  (....) 

el  se 

{ > 

where  the  statements  of  the  function  are       enclosed   by   the 
bracket  s  O • 
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In  addition  to  the  usual  incrementing  and  decrement- 
ing methods^  C  has  two  other  unary  operators  '++'  (  incre- 
ment )f  and  '--'  f  decrement  ).  Where  ++n  is  equivalent  to  n 
=  n  +  1  .  The  unusual  feature  of  '  + 1  *  and  '  -  -  '  ,  is  that 
they  can  be  used  before  or  after  a  variable.  The  value  of 
+  ♦  k  is  the  value  of  k  after  it  has  been  incremented.  The 
value  of  k  +  +  is  the  value  of  k  before  it  is  incremented. 

Arrays  can  be  made  as  in  Fortran,  thus  an  array  of 
ten  integers  is  created  by  the  following  declaration  : 

int  x  [101  ; 
sguare  brackets  [1  are  used  for  subscripting,  and 
parentheses  are  used  for  function  references  .  Array  in- 
dices begin  at  zero,  thus  the  elements  of  x  are  :  x  [  0 1  , 
x  f  1 1 r  x  [?]  f  x[91.  Multi-dimension  arrays  are  pro- 
vided, with  the  declaration   similar  to 

i  nt  name  [10]  [20]     ', 
name  has  10  rows,  and  20  columns;   and   the   rightmost   sub- 
script varies  fastest. 

Text  is  usually  keot  as  an  arrav  of  characters.  The 
st  at ement : 

print  f  ("%d:\tXs"  ,n,  1  ine)  ; 
will  print  the  inteaer  n,  a  colon,  tab  five  soaces  and  orint 
the  characters  stored  in  the  arrav  named  line.  The  symbol 
"%dn  indicates  to  print  an  inteaer,  the  symbol  "\t",  indi- 
cates to  tab  five  spaces  while  the  symbol  "  %  s  "  indicates  to 
print  a  character  array.  Each  variable  symbol  must  be  iden- 
tified in  the  descriotion  portion  of  ^he  statement  (that 
portion  not  enclosed  by  auotation  marks). 

42 


Another  method  is  to  place  the  output  between  quotes 
as  : 

printfC  Mary  had  %d  ducksW,  i)  ; 
with  i  e  a  u  a  1  to  7  *  will  Drint 

wary  had  7  ducks 
the  symbol  -\n'  is  the  carriaae  return  control  character. 

The  for  statement  is  a   somewhat   generalized   while 
statement*  that  allows  the  user  to  out  the  initalization  and 
increment  parts  of  a  1 ooo  into  a  single  statement. 
An  example  "is! 

for(i=0;i<k;i++')  < 
stat  ement 1 
stat  ement  2 
} 
which  executes  statementl  and  statement?  k  times. 

Global  variables*  variables  common  to  all  functions 
are  declared  outside  of  main().  Local  variables  are  declared 
inside  a  function*  while  the  declaration  of  oassed  vari- 
ables is  done  between  the  function  name  argument  list  and 
the  openina  '{'.  An  example  is  shown  on  the  followina 
page. 


Hi, 


int  z  i 
mainO 
{ 


k  ; 


/*  alobal  variable  */ 


count ( 
int  to 
{ 


int  x  [10]  ; 

count (sum» 1 0 )  ;  /*  calls  count  routine  */ 

print*("The  answer  is  %d0/  x(ij)  ? 

k  s  xin  *  x(2J  ♦  (  x[3]  •  x(4]  ) 
total rsize) 
t  a  1  t ]  r  size  ;  /*  Dassed  variables  * / 


int  i  »  c  ? 


/*  local  variables  */ 


for  (  i  =0?  i  <  si  ze;  i  ++  ) 


execut  ab 


e  stat  ement  s 


or  (  z  =  k;  z  <  c;  z++) 


/*  z  qlobal  */ 


return  ; 


44 


A  pointer  in  C  is  the  address   of   something.    The 

unary   oDerator  '&'  is  used  to  produce  the  address  of  an  ob- 
ject.  Thus : 

i  nt  a,  b  ; 

b  =  &a  ; 
puts  the  address  of  a  into  b.  If  b  is  declared  a  pointer  as 

i  nt  a,  *b,    c  ', 

b  =  &a  ; 

i 

c  =  *b  ; 
b  contains  the  address  of  a  and  c  =   *b   means   to   use   the 
value  of  b  as  an  address  (  as  a  pointer  ). 

An  unusual  feature  of  C  is  that  normal  binary  opera- 
tors like  the  '  ♦  '  and  the  '-'  can  be  combined  with  the  as- 
signment ODerator  *='  to  form  new  assignment  operators. 
For  examDle  " x  =-  10H  uses  the  assignment  ODerator  '=-' 
to  decrement  x  by  ten*  and  x  =&  0177  forms  the  AND  of  x  and 
0177.  The  soace  immediately  following  the  equal  siqn  is 
criticall  X  =  -10  sets  X  to  minus  ten,  while  X  =-  10  decre- 
ments X  by  ten. 

Appendix  B  lists  key  words  in  C  1 anauage  and  mav  not 
be  used  otherwise.  Additional  information  mav  be  obtained 
from  Refs.  f 71  and  til]  . 
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2.    Program  Description 

A  complete  program  listing  of  the  display  program 
can  be  found  in  Appendix  D.  The  filename  of  this  proaram  is 
see3.c»  and  can  be  cooied*  moved*  or  edited  usinq  the  rou- 
tine svstem  functions  of  PWB/UNIX  listed  in  references  [121 
and  [131  . 

The  purpose  of  this  section  is  to  discuss  each  rou- 
tine individually/  each  routine's  purpose  (output)  and  its 
relationship  with  other  routines  in  the  proaram. 

Fiqure  10  shows  functional  flow  of  the  displav  pro- 
gram. The  general  purpose  of  the  program  is  to  read  a  data 
file  into  memory*  sort  the  data  into  two  separate  files*  and 
convert  the  two  files  which  have  relative  values  in  them  to 
absolute  values.  Next  the  program  quantizes  each  file  to  16 
levels  for  use  in  displaying  the  imaoe.  Durina  execution 
the  RAMTEK  system  is  initialized  and  the  image  is  displayed 
with  an  ootion  to  change  the  selected  display  tvoe.  The 
basic  flow  is  that  the  function  m  a  i  n ( )  calls  each  routine* 
that  routine  accomplishes  a  speciific  function  and  returns 
to  main  for  the  next  function  call.  Appendix  C  is  a  more 
detailed  flow  chart  of  the  program  and  subroutines. 


Ub 


ope*  o^r/t 


€sTa6/'s6 


JUL 


Cor*  ^9Ar 

PA 


T 


Amp 


PA 


Ves/££<J 
P/or 


General  Flow  Chart 
Fiaure  10 
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a .  Dec larations 

The  following  variables  are  declared  as  global  variables   so 
that  multiple  declaration  statements  are    not  reguired. 
variable  function  (  use  ) 


amp 


filename  to  store  4096  (64x64) 
relative  values  of  amplitude 


Ph 


filename  to  store  4096  relative 
va 1 ues  of  phase 


i  nten 


filename  to  store  4096  relative 
values  of  intensity 


i  /  irk 


i  nt eger  count  ers 


m 


ASCII  conversion  to  integer 
of  four  bits  of  "tpone" 


integer  value  for  the  selected 
color  table 


show 


integer  value  for  the  selected  disolay 


f  laa 


integer  indicator  as  to 

whether  the  routine  showclrO 

has  been  executed  or  not. 

If  flao  =  1  then  erase  the  screen 

in  the  routine  draw(). 


fdl 


integer  file  descriptor  for  the 
opening  of  file  toone 


fd2 


integer  file  descriDtor  for  the 
ooeninq  of  file  amp 
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fd3 


inteqer  file  descriotor  for  the 
ooeninq  of  file  ph 


fd4 


inteaer  file  descriotor  for  the 
ooeninq  of  file  maq 


fd5 


inteqer  file  descriotor  for  the 
ooeninq  of  file  phase 


fd6 


inteqer  file  descriptor  for  the 
ooeninq  of  file  inten 


fd7 


inteqer  file  descriotor  for  the 
ooeninq  of  file  maq? 


aaU61  ,  bb  (161  , 
dddbl  ,  ee  (161  , 
f  f  [161 


16  -  word  inteqer  arrays  to  store 
various  color  tables 


cc  [4] 


four  character  -  character  array 
to  store  four  values  of  toone 
ei  t  her  amp  or  ph 


*DC 


pointer  to  character  pc 


character,  o  =  'b'  is  a  test  value 
for  determininq  that  incut  from 
the  keyboard  has  occured 


character  for  labelino  the 
color  bar  t  abl e 


maq 


filename  to  store  4096  actual 
values  of  maqnitude 


phase 


filename  to  store  4096  actual 
values  of  phase 
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X,   V 

ma  x  a 
mina 
maxo 
m  i  np 
max  i 
mini 
di  fa 


real  counters  for  positioning 
the  COP  for  disDlayina  the  data 

maximum  value  of  amDlitude 

minimum  value  of  amditude 

maximum  value  of  chase 

minimum  value  of  ohase 

maximum  value  of  intensity 

minimum  value  of  intensity 

difference  between  maximum 

and  minimum  amplitude 


di  fo 


difference  between  maximum 
and  minimum  phase 


di  f  i 


difference  between  maximum 
and  minimum  intensity 


maq? 


filename  to  store  4096  real  values 
of  intensity  (magnitude  sauared) 


b .   Main  Program 

The  puroose  of  the  main  program  is  to  call  the 
various  routines  that  are  used  to  accomplish  the  puroose  of 
the  proaram.  The  flow  of  execution  through  main()  is 
sequential .  The  compilation  and  the  execution  of  this  pro- 
gram causes  specific  data  files  to  be  filled  with  display 
data   words.    These  files  fust  be  Dreviously  created  by  the 
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user.  One  method  is  to  use  the  "ed"  Cedit)  command  [\2) 
such  as: 

%  e  d  amp    or    2  e  d  inten 

Seven  data  files  must  be  created  and  reside  in 
the  users  library  prior  to  program  execution.  This  pro- 
cedure will  be  exolained  further  in  section  A  - 3  of  this 
chanter . 

If  the  oroqram  has  been  used  to  display  data/ 
causing  these  data  files  to  have  the  correct  information 
stored  in  them,  it  is  unnecessary  to  re-fill  them  with  the 
same  information  aqain  uoon  subsequent  executions  of  the 
proqram  that  uses  the  same  input  data  tape. 

Comment  indicators  '/*•  are  recoanized  and 
Cause  the  compiler  to  cease  comoilinq  and  continue  reading, 
until  a  '*/'  is  sensed,  when  comoilinq  continues  again.  The 
statements  included  betweem  '/*  and  */'  &re  recoqnized  as 
unexecutable  comment  statements  and  have  no  effect  upon  pro- 
gram execut  i  on . 

The  six  routines  readdataC),  amptomaaC),  ohto- 
phas(),  amDlevelC),  phleveH),  and  intlevelC)  are  used  to 
fill  the  aporooriate  data  files. 

Since  only  one  test  data  taoe  was  avaliable, 
with  its  information  beina  stored  in  data  file  "toone" ,  it 
was  unnecessary  to  execute  these  routines  each  and  every  use 
of  the  proqram . 
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Comment  indicators  were  placed  prior  to  and  fol- 
lowina  each  routine  call  from  main(),  in  order  to  preclude 
execution  of  six  time  consuminq  routines.  Use  of  these  com- 
ment indicators  significantly  reduces  the  comoilation,  and 
execution  time  of  the  proaram.  If  it  becomes  necessary  to 
change  a  data  file,  because  of  additional  or  different  data 
tapes,  the  simple  removal  of  the  aooropriate  comment  indica- 
tors will  easily  falicitate  ♦"  h  e  use  of  the  specified  rou- 
tine. 

The  mainO  routine  sets  three  variables  (n,  g, 
and  show)  to  initial  values  for  use  by  subsequent  called 
routines.  The  program  terminates  uoon  the  execution  of  an 
exit(),  which  is  executed  in  the  finishO  routine. 

c  .  f  i 1 eooen ( ) 

The  purpose  of  fileooenO,  is  to  open  seven  data 
files,  which  must  alreadv  exist  in  the  users  library,  for 
reading  and  writing  of  information.  If  these  files  do  not 
exist  in  the  user's  library,  refer  to  Ref.[121  for  further 
edi  f  i  cat  i  on . 

It  should  be  keDt  in  mind  that  tpone,  amp,  oh, 
mag,  phase,  inten,  and  man?  are  external  files  that  have 
data  stored  in  them,  and  that  this  data  must  be  stored  by  a 
write  instruction  and  must  be  accessed  bv  a  read  instruc- 
tion. 
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It  is  the  user's  resoons i b i 1 t y  to  ensure  that  all 
necessary  files  do  exist  and  are  accessible  prior  to  Droqram 
execution.  Returned  values  are  1  if  successful  opens  have 
been  executed?  otherwise  the  proqram  will  terminate  upon  an 
unsuccessful  opening  of  any  file. 

d.  readdataC) 

The  purpose  of  readdataC)  is  to  separate  the 
data  from  toone  into  two  files*  amo  and  ph. 

The  oriainal  values  of  data  were  recorded  onto  a 
papertaoe  in  altematina  sequence*  amolitude  then  phase*  for 
in  excess  of  4096  data  oairs.  The  data  was  recorded  in  AS- 
CII format*  thus  it  is  also  converted  from  ASCII  to  inteoer 
within  the  routine  readdataC). 

The  variable  cc  is  a  character  array  four  char- 
acters long.  When  the  array  is  filled  with  three  characters* 
and  a  '  *  (space)*  as  the  fourth  character*  the  library  rou- 
tine atoiO  is  called  which  converts  the  contents  of  the  cc 
array  into  an  inteqer  variable  m.  Dependinq  upon  whether  the 
variable  K  is  odd  or  even*  m  is  then  written  into  either  the 
amp  file  or  the  oh  file.  This  sequence  is  repeated  4096 
times.  Upon  completion  of  readdataC)*  no  further  use  o* 
toone  is  reouired  *  and  two  seoerate  data  files*  amo  and   dH 
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will   each   have   4096  inteaer  values  of  amplitude  and  phase 
stored  in  them  resoec t i vel y . 

e.   amptomaqO 

The  purpose  of  amptomaqO*  is  three  fold:  first 
it  converts  the  relative  values  in  amp  (in  db)  into  actual 
values  in  mag  (in  db);  secondly/  it  finds  the  intensity  (in 
db )  of  the  values  in  maq  and  assians  them  to  maq??  and 
thirdly*  amotomaq  determines  maximum  and  minimum  values  for 
magnitude  (maa)  and  magnitude  squared  (maq?). 

One  value  of  amp  is  read*  maq  is  assiqned  a 
specific  value  accordinq  to  the  eauation: 

maq  =  -20.18  -  .1734  *  amo 

This  is  necessary  because  the  data  acouisition 
system  records  relative  values.  For  display  purposes  actual 
values  are  required  necess i t at i no  a  system  calibration  to 
produce  the  above  equation.  If  the  calculated  value  of  mao 
is  qreater  than  the  current  value  of  maximum  amplitude*  then 
max  amplitude  is  assiqned  this  value.  If  this  value  o  *  maa 
is  less  than  the  current  value  of  minimum  amp,  then  min  amo 
is  assianed  this  value.  The  maqnitude  squared  value  is  then 
tested  in  the  same  manner,  and  finally  maq  value  is  written 
into  mag  file*  and  the  maa?  value  is  written  into  the  maq? 
file. 
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f .  oh toohas ( ) 

The  routine  ohtoohas()  is  similar  to  amptomaqC") 
in  puroose  namely  to  convert  from  relative  values  of  phase 
to  actual  values/  and  to  find  maximum  and  minimum  values. 

One  value  of  Dh  is  read  and  deoendinq  uoon 
whether  it  is  less  than  or  equal  to  or  greater  than  127,  it 
is  assiqned  a  SDecfic  value  of  Dhase  (in  degrees)  accordinq 
to: 

i  f  Dh  <  127 

phase  =  1  .  139  ♦  1  .4946  *  ph 
e  1  se 

ohase  =  -380.28  +  1.4917  ♦  Dh 
As  with  amp  this  equation  results  from   calibra- 
tions performed  on  the  acquisition  system. 

Maximum  and  minimum  values  are  tested  and  saved 
accordinqly.  Finally  the  value  of  phase  is  written  into  the 
phase  file. 

g.  arnol evel  (  ) 

The  purpose  of  amplevelC)  is  to  divide  the  range 
of  amplitudes  into  16  eaual  levels,  (because  each  color 
table  has  a  possibility  of  sixteen  color  entries),  to  test 
each   individual   value   and  to  assign  it  a  new  level  number 
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according  to  its  value.   If  maxa  has  a  value  of  600  and  mine 

has   a   value  of  200,  sixteen  eaual  levels  would  be  25  units 

wide.   The  oeneral  equation  used  is: 

difference  =  maximum  -  minimum? 

For  each  value: 

(maximum  -  value)  *  16 
level  value  =  16  -  ------------------------ 

di  f  f erence 

Thus  a  value  of  317  in  the  above  examole  would  be 

given  a  level  value  of  4. 

(  600  -  317  *  16  ) 
16   -    =   a 

400 

uoon  completion  of  amolevelO.  The  file  amn  will  then  con- 
tain integers  from  zero  to  fifteen  representing  the  various 
amoltitude  levels.  These  values  will  be  used  as  color  table 
indices  in  subeauent  functions*  for  disDlayinq  the  image. 


h .  oh  1 evel  ( ) 

The  Purpose  of  phlevel()  is  indentical  to  the 
purpose  of  amplevelC).  Upon  completion  of  phlevel()#  the 
file  ph  will  contain  inteaers  from  zero  to  fifteen 
representing  the  various  phase  levels. 
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i .  i  nt 1 evel ( ) 

As  with  amplevel ()  and  ohlevel ()»  the  puroose  of 
intlevel ()  is  to  generate  a  file  with  values  from  zero  to 
fifteen  representing  various  levels  of  intensity.  Upon  com- 
pletion of  intlevelC)  the  file  inten  will  contain  inteaer 
values  from  0  to  15  representinq  the  various  intensity  lev- 
els. 

Each  of  the  six  preceedina  routines  are  called 
from  main(),  and  are  only  called  one  time.  If  the  program 
has  been  previously  compiled  and  excuted,  such  that  current 
data  is  stored  in  amp,  Dh,  and  inten  files;  deletion  of  the 
comment  indicators  should  be  seriously  be  considered  prior 
to  compilina  and  execution  of  the  program. 

j  .  ctableO 

The  purpose  of  ctablef)  is  to  aefine  additional 
color  tables  that  can  be  used  for  disolay. 

The  five  arrays  have  been  declared  globally  and 
by  the  use  of  the  tripled  routine,  various  color  values 
have  been  assigned  to   each   element   of   the   five  arrays. 
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Remember  that  there  are  four  color  tables  that  are  system 
color  tables*  that  are  also  availiable  for  use*  namely 
greys*  blues*  and  areens.  The  arrays  are  assigned  specific 
color  table  numbers  and  names  by  use  of  the  clrtbl  (n*  name) 
rout  i  ne. 

k .  di  spl ay ( ) 

The  puroose  of  this  routine  is  to  create  the  im- 
aae  on  the  disolay  screen  accordino.  to  values  stored  in  the 
desired  disolay  file.  Once  the  i  m  a  a  e  has  been  drawn*  the 
routine  calls  the  routine  drawO  to  display  the  color  table 
that  is  in  use*  sets  the  desired  selection  indicator  to  zero 
and  ealls  the  routine  changeC).  Control  is  never  returned 
to  mainC)  and  the  proaram  can  only  terminate  in  the  routine 
finishO  which  is  called  by  chanqeO. 

The  selected  color  table  is  t^e  variable  n  and 
the  brightest  color  entry  is  assioned  for  use  as  writing 
text  on  the  screen.  All  colors  are  available  for  use  in  im- 
aae disolayina  however  onp  of  the  colors  is  used  to  interact 
with  the  user*  namely  entry  15. 

The  COP  starts  at  the  uoper  left,  at  cartesian 
point  ( 30 . *  69 . 375  )  .  For  64  values  of  i*  X  is  incremented  bv 
0.625*  the  color  level  value  is   obtain   from   the   selected 
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display  file*  used  as  the  variable  in  colorO  and  a  block 
0.625  bv  0.625  units  is  drawn  by  the  blockO  instruction. 
After  64  blocks  have  been  drawn,  Y  is  decremented  by  0.625. 
X  is  assiqned  the  value  of  69.375  and  for  6a  values  is  de- 
cremented by  0.625.  The  color  level  values  from  the  displav 
TYPE  file,  sre  obtained  and  the  block  drawn  in  the  aporopri- 
ate  color.  Fiqure  12  is  a  pictorial  representation  of  this 
procedure . 

The  seek()  instructions  are  system  functions 
that  move  a  pointer  to  the  soecefied  position  of  the  speci- 
fied file. 

seek  (fd2,0,0); 
orders  the  pointer  to  point  to  the  file  described   by   "file 
description   two"   (fd2)r   point   to  the  zero  position  (  the 
first  zero)  with  a  zero  offset  Cthe  second  zero). 

The  variable  show  is  used  to  simply  indicate 
which  disolay  has  been  selected  to  be  plotted. 

Show=  1  ==>  Amplitude  display 

Show  =  2  ==>  Phase  display 

Show  =  3  ==>  Intensity  display 
When  displayO  is  completed  the  imaae  can  remain 
on   the   screen  indefinitely/  until  an  erase!)  is  excuted  by 
completing  the  action  indicated  at  the  too   of   t^e   screen. 
Wiich  is  typing  a  'c'  for  change  or  a  'a'  for  quit. 
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1 .  draw (o) 

The  routine  drawC)  is  called  from  two  different 
routines*  from  showclr()  and  from  disolayC).  The  puroose  of 
drawO  is  to  disolav  the  current  color  table  on  the  RAMTEK 
screen  with  correSDondina  color  levels  indicated.  There  are 
sixteen  colors  in  each  table  and  the  size  of  each  color 
block  is  3x4  units.  The  variable  Z  is  a  character  variable. 
By  adding  060  to  the  inteaer  variable  p*  the  statement 
out(Z)  can  be  excuted.  Out()  displays  a  sinqle  character  on 
the  RAMTEK  screen  at  the  current  operatino.  point*  Uoon  com- 
pletion of  drawing  the  color  table  execution  is  returned  to 
the  calling  routine. 

m .  oagel ( ) 

The  purpose  of  oaqel ()  is  simply  to  output  text 
to  the  RAMTEK  screen  for  introductory  comments.  When  the 
letter  'c'  is  typed  on  the  RAMTEK  keyboard  the  routine  ter- 
minates* and  returns  to  mainO. 

n.  oaae? ( ) 

The  ourpose  of  oaae?()  is  to  allow  the  user  to 
select   the  disnlay  he  desires  to  see.   The  intpqpr  variable 
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show  is  set  to  zero  and  the  proaram  will  wait  until  a  number 
is  typed  on  the  RAMTEK  keyboard/  followed  by  a  carriage  re- 
turn using  the  CR  key. 

o .  oaae3 ( ) 

The  puPDose  of  o  a  g  e  3  O  is  to  allow  the  user  to 
view  the  avaible  color  tables  and  then  select  which  color 
table  he  wishes  to  be  used  to  generate  the  image.  There  are 
nine  different  color  tables:  four  system  reserved  color 
tables*  and  five  Droqram  qenerated.  The  integer  variable  n 
is  used  to  indicate  the  selected  color  table. 

The  viewina  of  color  tables  is  accomplished  by 
calling  the  routine  showclr().  The  user  may  already  know 
what  tables  are  avialable  and  the  corresponding  table 
number*  thereby  not  wishing  to  view  the  nine  tables.  This 
ootion  is  also  available*  simoly  by  tyoinq  the  letter  •  n ' 
indicating  that  no  -  the  user  does  not  wish  to  see  the  color 
t abl es . 

p.  showc 1  r  O 

The  purpose  of  the  routine  showclrO  is  to  call 
draw()  for  displaying  the  current  color  table  and  askina  the 
user  if  he  wishes  to  see  the  next  color  table. 
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g.  chanqe  f ) 

The  purpose  of  the  routine  chanaeC)  is  to  deter- 
mine whether  the  user  wishes  to  select  another  desired 
display  t  and/or  chanoe  the  color  table  currently  in  use. 
when  the  user  indicates  that  a  change  in  display  is  desired 
the  routines/  page2C)  and  oaqe3(),  are  called  to  obtain 
necessary  information  concerning  the  selected  display  and 
color  to  be  displayed.  Once  this  is  accomplished*  the  rou- 
tine displayf)  is  again  called  to  produce  the  desired 
display. 

The  routine  changeC)  can  only  be  exited  by  indi- 
catina  that  the  user  desires  to  guit*  bv  typing  the  letter 
'o'  when  asked  to  do  so.  The  display  can  be  changed  as  many 
times  as  the  user  desires  to  do  so. 

r .  f  i  n  i  sh  () 

The  purpose  of  the  routine  finishC)  is  to  verify 
that  the  user  does  in  ♦act  wish  to  guit.  The  user  is  aiven 
a  second  and  final  chance  to  indicate  whether  he  does  really 
want  to  stop*  or  does  want  to  go  back  and  look  at  another 
se 1 ec ted  display. 
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3 .  Program  Execution 

It  is  assumed  that  the  user  of  this  prooram  does  have  at 
least  some  introductory  exoerience  with  the  facilities  in 
the  ComDuter  Laboratory,  and  with  the  PH8/UNIX  operatinq 
system.  In  order  for  the  user  to  sucessfully  disolav  the 
image  on  the  RAMTEK  system  a  number  of  actions  must  have 
been  accomplished. 

a.  Program  Loadina 

The  Drogram  see3.c  must  be  copied  into  the  user's 
library  so  that  he  mav  make  desired  changes/  and  so  that 
compilation  may  Pe  accomol i shed . 

As  indicated  in   section   III   A-2,   seven   data 
files  must  reside  in  the  user's  library.   Those  files  are     : 


ed", 


toone 
amp 
oh 

chase 
mag 
i  nt 
mag? 
Thev  can  be  created  by  using   the   edit   command 
then   writina   one   blank  line  (carriage  return),  and 
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then  guiting  the  edit  mode.  For  example  to   create   the   amn 

file: 

%ed  amp 
0  ? 
>a 
(return) 

• 

>lw 

>q 

X 

would  accomolish  the  task. 

b.  Program  compilation. 

Once  the  user  has  cooied  and  made  any  desired 
edits  to  his  oersonal  cody  of  the  program,  the  orogram  can 
be  compiled  in  order  to  produce  an  executable  file  named 
a. out.  The  compilation  is  accomplished  bv  typing  the  fol- 
lowinq  system  command  : 

%  ramt  ek  see3  .c 

This  action  will  produce  an  executable  file 
named  a. out.   It  is  hiqhlv  recommened  that  the  move  command 

mv  a. out  anot he r f i 1 ename 
be  executed  in  order  to  reduce  the   possibility   of   erasina 
the  file  a. out  by  another  comlioation  prior  to  completion  of 
i  t  s  use. 

Once  the  compilation  has  been  completed/  tvpina 
the  filename  a. out  will  cause  execution  to  begin.  Tvpina 
anot he r f i 1 ename f  if  the  move  (mv)  command  was  executed/  will 
also  cause  execution  to  commence. 
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c.  RAMTEK  Execution 

In  order  to  use  the  RAMTEK  system  verification 
from  the  Computer  Laboratory  staff  personnel  should  be  ob- 
tained as  to  whether  RAMTEK  is  operational  or  not.  When 
RAMTEK  is  operational  two  power  switches  must  be  turned  on. 
One  switch  is  on  the  CRT  housina  cabinet;  it  is  a  knob  lo- 
cated on  the  front  lower  left  corner  marked  on  -  off.  The 
other  switch  is  on  the  keyboard*  a  qreen  oush  type  switch  on 
the  upoer  right  corner.  Both  of  these  switches  must  be  on 
before  the  program  is  executed  in  order  to  have  meaninqfull 
resul t  s . 

d.  Editinq  the  Prngram 

The  user  can  edit  his  copy  of  the  display  pro- 
gram in  the  normal  PWB/UNIX  editinq  mode.  Most  of  the 
chanqes  will  orobably  be  the  addition  or  change  of  color 
tables/  or  increasing  the  size  of  the  disDlav. 

C.  SYSTEM  DISPLAYS 

The  photoqraohs  shown  in  the  followinq  paaes  are  oi'c- 
toral  evidence  that  the  routine  aooears  to  accomplish  the 
desired  task/  although  much  of  the  visual  impact  is  lost  bv 
being  limited  to  black  and  white  nhotos. 
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1 .  Program  Development 

The  disolay  program  was  developed  in  sequential 
steDS.  A  specific  routine  was  written  and  tested  individu- 
ally and  then  it  was  incorporated  with  the  previously  com- 
pl et  ed  rout  i  nes  . 

2.  Display  Photoaraohs 


The  photographs  on  the  follow  inn  cages  show  how  s  o  m «» 
improvements  to  the  oroqram  affected  the  display  output. 
The  last  sets  of  photographs  show  the  display  output  of  the 
completed  prooram,  as  listed  in  appendix  D.  This  program  is 
re-entrant*  allowing  the  user  to  select  an  alternate  display 
and  different  color  tables  for  use  in  subseauent  display 
outouts  at  the  current  session. 

Fiqure  12  shows  one  of  the  first  images  oroduced. 
The  object  is  a  circular  aperture  placed  in  front  of  the 
source  transducer.  The  sound  field  is  scanned  immediately 
behind  the  object.  Previous  images  (not  shown)  filled  tne 
screen  and  did  not  have  any  margins.   In  figure  12  the  image 
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is  rectanqular/  controlled  by  the  blockC)  instruction,  to  be 
40  wide  and  70  high.  The  disolav  used  white  as  the  back- 
ground color  and  it  used  shades  of  red  and  blues  as  the 
primary  colors  of  the  table. 

Figures  13  -  16  show  the  image  to  be  blocked  to 
40X40.  As  can  be  seen  in  F  i  q  .  1  6  ,  this  sauare  image  allowed 
for  information  to  be  oresented  in  the  borders  of  the 
screen . 

Figures  17  -  20  are  presented  to  show  the  "inter- 
action" that  the  user  has  with  the  system.  The  user  must 
reSDond  to  the  reauests  presented  on  the  sc'reen  -  or  the 
system  will  remain  in  an  idle  state  waiting  for  a  resoonse. 

Figures  21  -  26  show  the  three  possible  kinds  of 
display  images*  utilizing  two  different  color  tables.  Fig- 
ures 21,23  and  25  use  the  shades  of  red  table,  while  Figs. 
22,24    and  26  use  a  mixed  color  table.   Figures  21  and  22 

are  of  the  amplitude  plots;  Fias.  23  and  24  are       the   phase 
plots?  and  Figs.  25  and  26  are    the  intensity  plots. 
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Fiaure  12.   Earlv  Oeve 1 ooemen t  Staae 


Figure  13 
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F  i  qure     \ Q , 


Fiaup*»    15 
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F i qu  re     16. 
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*  ;*.  K'tt  :i  it  ::  J'  "£  *-    ""*  :':v*  * 
:;•-■«■"  i  :  nu"  =  Rttrt  T:?iE  rrn  ;:III  *: 


few  fViSy  fci  H&tiRe  tyji  thi  f».ff«r 


F  i  qure    17. 


Fiqupp    1 8 . 


7? 


Fi  qure 


Select  the  color  tabic  you  fish  to  use 
8  -  Greys    1  -  Blues       : 
2  ■  Greens    3  -  Reds 
«  -  Nixed       5  -  Mixed 


§- Nixed     7 -Hixed 
?  -  Hixed  Followed  by  a  CR 


Figure    ?0 
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F  i  qure  2  1  . 
Amplitude  Display  -  Reds  Color  Table 


F  i  qu  re  ?2  . 
Amplitude  Display  -  Mixed  Colors 
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Figure  23 . 
Phase  DisDlay  -  Reds  Color  Table 


Figure  24 . 
Phase  Display  -  Mixed  Colors 
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F  i  qure  <?5  . 
Intensity  Display  -  Reds  Color  Table 


F  i  qure  26 . 
Intensity  Display  -  Mixed  Colors 
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CONCLUSIONS  AMD  RECOMMENDATIONS 


Althouqh  the  developed  system  is  not  an  optimum  svstem 
in  soeed  or  in  si?e,  it  does  allow  16-level  color  code 
disolays  of  two  dimensional  data  arrays  to  be  visually 
displayed.  The  system  described  here  was  designed  for 
part  of  an  ultrasonic  imaainq  system.  However  this  display 
portion  of  the  overall  svstem  could  be  usea  to  display  two 
dimensional  data  from  any  source.  The  one  reauirement  is 
that  the  data  be  stored  in  alternating  values  on  the  data 
tape.  It  must  be  recoanized  that  software  modifications 
could  be  almost  unlimited,  in  order  to  achieve  many  possible 
i  mprovement  s . 

Included  here  are  a  few  recommendations  that  would  de- 
finitely improve  the  efficiency  of  the  current  oroqram.  By 
reducina  the  time  required  to  construct  the  imaae  the  pro- 
cessing capabilities  of  the  system  would  be  increased. 
First r  allow  the  oroqram  itself  to  create  the  necessary  data 
files,  rathe**  than  the  user  beino  required  to  do  so. 
Secondly,  allow  the  user  to  aenerate  color  tables  durina 
proaram  execution.  This  would  allow  for  additional  invest  i  - 
qations  to  be  conducted  at  fhe  terminal  by  increasing  the 
color  selection  to  the  maximum  possible  .  Thirdly,  it  is 
recommended  that  f  u  r  t  u  r  e  endeavours  in  this  system  utilize 
the   magnetic   faoe  capabilities  of  the   PDP  11/50  ccmout^r. 
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That  is  the  necessary  data  files  and  computer  program  should 
be  keot  stored  on  magnetic  taoe  when  not  in  use.  This  would 
reduce  memory  requirements  when  the  oroaram  is  not  in  use  and 
allow  for  easier  transportation  of  data. 
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a 

ADOFF 

adon 

ALPHA 

axis 

b 

BKON 

BKOFF 

bk  pnd 

blank 

8LK 

bl  ock 

bracket 

btl 

bt2 

bta 

bt5 

buff 

by t enc t 

c 

eft 

Change 

c  1  rhol  d 

cl rtbl 

code 


APPENDIX  A 
RESERVED  WORDS 
e  i  n  s  t 
epaqel 
epaqel 
epaqe3 
erase 
ERS 
f  i  xpt 
flip 
f  name 
fp 

FPOFF 
f  pon 
qet  f 
aetnum 
GRAPHCRT 
GRAPHELM 
GRAPHVEC 
head 
headot  r 
heat 
ho  1  dx 
hoi  dy 
i  ndex 
i  not  rs 
instr 


Dause 
pick 
d 1 otot 
pi ot 1 n 
pi  ot  h 
point 
po  i  nt  p 
proc  1 
oroc? 
oroc3 
ppoc^J 
orocS 
ot  pbu  f  f 
nut  up 

ODt  p 

apt  p1 

at 

auest 

al 

pamt  ek 

RASTERD 

ret  chap 

scissor* 

SCR 

sc  reen 
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codei  t 

coke 

color 

col ort 

co 1  op t  b  1 

comb 

COMMA 

COMPD 

conve 

con  v  1 

cooy 

CR 

ctl 

ct2 

ct3 

eta 

cursv 

curso 

cursh 

d 

dat  a 

dat  ao 

db 1 w i  d 

di  sp 

dump 


i  nst 1 -i nst  BO 

inter 

int53 

i  nt60 

i  t  oa 

TXOFF 

TXON 

LC^ 

1  cmho 1 d 

LER 

Lex 

LEI 

LE2 

LLR 

LLX 

LL1 

LL? 

LTA 

LTD 

1  tt  r 

LXD 

more  i  ns  t 

n0-nl7 

octbl 

out 


SC  POl  1 

SDCO 
set  mode 
set  uo 
size 
skip 
SSCALL 

St  POUt 

Strtxy 
sys t b 1 
tb 1  who 
TRANSD 
triple 
upent 
vec  tor 
wa  i  t 
WDOFF 
WDON 
w  r  i  ton 
xaxis 
xm  i  n 
x  ma  x 
vax  i  s 
yax  i  s  f 
ym  i  n 
ymax 
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APPENDIX  B 
C  Lanquaoe  Reserved  Words 


int 

doub  1  e 
extern 
goto 
break 
el  se 
while 
def aul  t 


char 
st  rue  t 
reai  s t  er 
return 
continue 
for 

switch 
entry 


f  1  oat 

aut  n 

static 

sizeof 

i  f 

do 

case 
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* 

/w/i/'/JO 

A 

f 

> 

f 

* 

/> 

% 

f 

S,hb 

iff 

_ s 

> 

APPENDIX  C 
Det  ailed  Flow  Chart 
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/#/utes 
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Qo/oA  (4rnp) 


I 


r\ 


-f\ 


Put  qo/oa. 


Q 


t-o/t  ewe/ 
Co  /o A  ir*ble 


c 


Mo 


(Sr0/? 


[fi2S      |   CfrU 
i 1     n  -    * 


c/uiAtoecj 


) 


C/g/Zf/jfeZv 


To 


ex  J -ro 


87 


see3  .c 


Pane    1 


Wed  Dec   5  1  1  :^R:  16  1979 


1  / *    Proaram  for  d  i  s  d  1  a  v  i  n  a  data  on  the  R  A  M  T  E  K  display  unit  * / 

2 

3  /*****  DECLARATIONS  *****/ 

a 

5  int  awo >    p  h  ,  inten»  i  ,  ) ,     V ,    m,     n ,     show*  flaa   ? 

6  int  fdl,  fd2,  fd3,  fda,  fd5,  fd6,  fd7  ; 

7  int  aaU6],  bb(16],  ddfl6],  eefl6],  ffU6)  ; 

8  char  cc  t^J  >  *dc»  q»  ?  ; 

9  float  maq,  Dhase*  *,  v  ; 

10  float  m  a  x  a  »  m  i  n  a  ,  ma<0#  m  i  n  p ,  d  i  f  a  »  difp  / 

11  float  maxi  »  mini,  d  i  f  i  ,  mao2  » 
1? 

13  /*****  MAIM  PROGRAM  (  calls  most  of  the  subroutines  )  ***-**/ 

ia 

15  main  ( ) 

16  ( 


f  i 1 eooen  (  )     J 
ramtek  (  )  J 
erase  ( )  # 
c table  ()  ; 
oaoel  ()  ; 
oaoe?  C)  ; 
oaae3  ()  ; 


17 

lfl 

19 

20 

21 

22 

23 

2a  /* 

25 

26  */ 

27  /* 
28 

29  */ 

30  /* 
31 

32  */ 

33  /* 
3^ 

35  */ 

36  /* 
37 

38  */ 

39  /* 

ao 
ai  */ 

a2 
a3  > 
aa 

45  /*****  OPENS  ALL  NECESSARY  FILES  *****/ 

46 

4  7  f  i 1 eopen  ( ) 
48  { 

fdl  =  ooen("tpone",0)  ;      /*  OPEN  INPUT  FILE  FOR  HFAO  ONLY  */ 
If  C  fdl  <  0  1  I 

print f("  CANNOT  OPEN  DATA  FILE  \n"  )  ; 

orintfC  PLEASF  INSURE  THAT  TPONE  IS  IN  LIBRARY  \n"     )     ; 
exit  (  )  ; 
) 


readdata  ()  ; 

amot  omaq  (  )  * 

Dh toohas  ( )  ; 

amo 1  eve  1  (  )  1 

oh  1  eve  1  ( )  / 

i  nt 1  eve  1  (  )  ? 
di  spl ay  (  )  i 


49 
50 
51 
52 
53 

5a 

55 
56 
57 
58 
59 
60 


fd2  =  ooe-i("amnM,2)  ;         /*     OPEN  AMP  FILE  r  OR  RE AD/'.lR  I  IF  */ 
if  (  fd2  <  0  )  { 

DrintfC  CANNOT  OP^N  A"P  FILE  W  )  ; 

nrinffC  PLEASF  INSURE  THAT  AMP  13  IN  IIPRARY  \n"  >  ' 

exit  (1  ; 
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Paae  2 

> 


Wed  Dec   5  11:59:16.  1979 


/*  OPEN  PH  FILF  FOR  READ/WRITE  */ 


see3.c 

61 
6? 
63 

6a 

65 
66 
67 
68 
69 
70 
71 
72 
73 

7a 

75 
76 
77 
78 
79 
80 
81 
82 
83 

ea 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9« 

95 

96 

97 

98 

99 
100 

101  /*****  READ  DATA  FROM  TPONE  INTO  EITHER  AMP  OR  PH  FILE  *****/ 
102 
103  readdata  () 

i  oa  { 


fd3  =  open ("oh", 2)  ; 
f  f  C  f  d  3  <  0  )  { 

orintff"  CANNOT  OPFN  PH  FILE  \n"  )  ; 

orintfC"  PLEASE  TNSURE  THAT  PH  IS  IN  LIBRARY  \n"  )  ; 
exit  (  )  ; 
> 

fda  =  oocnC^aq"  ,2)     ;         /*  OPEN  MAG  FILE  .FOR  RFAD/WRTTE  */ 
i  f  (  fda  <  0  )  { 

orintff  CANNOT  OPFN  MAG  FILF  \n"  )     ; 

DrintfC  PLEASE  INSURE  THAT  ^AG  TS  IN  LIBRARY  \n")  ; 

exit  ( )  ; 
> 

fd5  =  0DenCohase",2)  ;      /*  OPEN  PHASE  FILE  FOR  READ/WRITE 
if  (  fd5  <  0  )  { 

orintfC  CANNOT  OPFN  PHASE  FTLE  \n"  )  ; 

orintfC  PLEASF  INSURE  THAT  PHASE  IS  IN  LIBRARY  \n"  )  , 

exit  ( )  ; 
} 

fd6  =  ooenC  i  nten"  ,2)  ?       /*  OpEN  INTENSITY  FILE  FOR  READ/WR' 

if  (  fd6  <  0  )  { 

orintfC"  CANNOT  OPFN  INTENSITY  FILE  \n"  )  ', 

orintfC  PLEASE  SEE  THAT  INTENSITY  IS  TN  LIBRARY  \n"  ) 

exit  (  )  ; 

> 

fd7  =  open("maa2",2)  ;       /*  OPEN  MAG  SQUARED  FILE  */ 
if  (  fd7  <  0  )  { 

orintfC*  CANNOT  OPEN  MAG  SQUARED  FTLF  \n"  )  ; 

orintfC  PLEASE  CHFCK  LIBRARY  FILES  \n"  )  ; 

exit  (  )  ; 
> 

return  ; 
> 


105 
106 
107 
108 
109 
110 
111 
112 
113 

lia 

115 
116 
117 
118 
1  19 
120 


for  (  i  =  0;  i  <  a096;  i*+  )  { 
for(k  =  0;k<2;i<rt+)  ( 

nc  =  cc  ; 

do  < 

r ead ( f dl , dc  # 1  )  ; 
i  f  (  *PC  ==  ' \n  '  )   dc 
> 

while  C  *oc  +  *  !=•'); 
m  =  atoi  (cc)  ; 
i  f  (  k  ==  0  ) 

write(fd2»Rm,2)  ; 
else 

write(fd3,*m,2)  ; 
1 
} 
return  ; 
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121 
122 
123 
12« 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
IS* 
139 
140 
1U1 

la? 

143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 


/*****  CONVERT  INTEGER  AMP  VALUES  TNTO  dR  FLOATING  POINT  MAG  VALUE 


amDt  omaq 
< 


O 


seek(fd2,0,0) 
seek  (  fd4,  0,01 
seekf fd7,0,0) 
maxa  =  -999.0 
mina  =  999.0 
maxi  =  000.0 
mini  =  999. 0 
for  C  i  =  0;  i  <  4096; 
read ( f d2 , &amo, 2  )  ; 


/* 
/* 
/* 


i  t  + 
/* 


POINT 
POINT 
POINT 


TO 
TO 
TO 


BEGINNING 
BEGINNING 
BEGINNING 


Or  AMP  FTLE  */ 
OF  MAU  FILF  :*/ 
OF  MAG2  FILE  */ 


maq  =  -20. 18  -  . 1 734  * 


)  { 

READ 

amp  ! 


2  BYTES  INTO  A^p  */ 


maa2  =  maq  4*  ^aq  } 
if  (  maxa  <  mao  )  maxa  =  mag  7 
if  (  mina  >  maa  )  mina  =  maq  r 
if  (  maxi  <  mao2  )  maxi  s  m  a  q  2 
if  (  mini  >  maq2  )  mini  =  maq2 
write(fd4,x,maq,a)  ; 
write(fd7,Smaq?,4)  ; 


/*  POINT  TO  BEGINNING  OF  PH  FRE  */ 
/*  POINT  TO  BEGINNING  OF  PHASE  FILE  */ 


return  » 


/****.*  CONVERT  INTEGER  PH  VALUES  TO  dti  FLOATING  P0TNT  PHASE  VALUES 

oht  oohas  ( ) 
{ 

seek(fd3,0,0) 
seek(fd5.0,0) 
rnaxo  =  -999.0 
mine  =  O99.0 
for  (  i  =  0;  i  <  4096;  i++  )  { 

read(fd3,&oh,2)  ;    /*  READ  2  BYTES  OF  PH  */ 
i  f  (  Dh  <  127  ) 

Dhase  =  1.139  +  1.4906  *  oh  ; 
else 

ohase  =  -380.2*  +  1.4917  *  ph  ; 
wri  te(fd5,&Dhase,4)  ;    /*  tvRITE  4  6YTFS  INTO  PHASF  */ 
if  (  mam  <  ohase  )  tsko  =  ohase  ; 
if  (  mi  no  >  Dhase  )  minD  =  ohase  ; 


> 
return  ; 


> 


/*****  CONVERT  THE  FLOATING  POINT  VALUES  INTO  INTEGER  VALUES  OF 

BETWEEN  0  AND  15  (  for  color  table  use  )  ***** 

amo level  ( ) 
{ 

difa  -    maxa  -  mina  ; 
seekCfd2,0,0)  ; 
seek(fd4,0,0)  ; 

for  C  i  =  0;  i  <  4096;  i  ♦  +  )  i 
readf f d4, &maq, 4)  ; 
amo  =  16  -  (((  maxa  -  mao  )  /difa  )  *  16  )  ; 
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181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

221 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23^ 

235 

236 

237 

238 

239 

240 


wr  i  t  e ( f  62 , Ramp*  2  1  ; 


> 
return  ; 


} 


oh  1 evel  C ) 
< 

di  f  o  =  maxo  -  mine  ; 
seekCfd3,0,0)  ; 
seek(frt5,0,0)  ; 

for  C  i  =  0;  i  <  a  0  96;  i*  +  )  { 
read(f d5,&phase,4)  ; 

oh  =  16  -  (((  fraxn  -  chase  )  /  d  i  f  o  )  *  16.  )  ; 
write(fd3,*ph,?)  ; 
} 

return  ; 
) 

i  nt 1  eve  1  ( ) 
{ 

seek(fd6,0,0)  ; 
seekffd7,0,0)  ', 
difi  =  m  a  x  i  -  mini  ; 
for  (  i  =  0;  i  <  4096;  i+  +  )  { 
read(fd7,«.maa2,4)  ; 

inten  =  16  -  (f(  maxi  -  <naa2  )  /  difi  )  *  16  )  ; 
wr i t e ( f d6, & i nt en , 2)  ; 
} 

return  ; 
} 

/*****  DECLERATION  OF  VARIOUS  POSSIBLE  COLOR  TABLES  *****/ 

ctable  () 


aa  [01  = 
aaril  = 
aa[21  = 
aaT3}  = 
a  a  f  4 1  = 
aaT51  = 
aa  [61  = 
aa t7J  = 
aa  [81  = 
aaf91  = 
aaflO] 
aa  (11) 
aa[12J 
aaU3J 
aa  [14] 
aaflSl 


t  r  i  d1 e  C 
triolet 
triplet 
t  r i  d1 e  ( 
t  r  i  ol e ( 
t  r  i  ol e  ( 
triplet 
t  r  i  o  l  e  C 
triolet 
t  r  i  d  1  e  f 
- 1  r  i  o  1  e 
st  r i  ol e 
=  t  r  i  o 1 e 
=  t  r  i  dI e 
=  t  r  i  o  1  e 
=  t  r  i  ol e 


5,15, 
5,  15, 
5,15, 
5,  15, 
5,  10, 
5,05, 
5,00, 
5,  10, 
5,  10, 
5,  10, 
15,05 
15,05 
15,05 
10 
1  0 


10 
10 


05,05 


15) 

10) 

05) 

00) 

15) 

IS) 

15) 

1^) 

OS) 

00) 

,  10) 

,05) 

,00) 

,  1  0) 

,05) 

,05) 


bbfO) =triple(00,00,00) 
bb  [11 =triole(01,01,01  ) 
bbf21 =trio!et02,02,02) 
bbf31 =trio1e(03,03,03) 
bbt41=triolef04,04,04) 
hb[51 =triole(05,05,0S) 
bb[61 =triplef06,06,06) 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


black    */ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


<fL 
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?ai 

2a? 

2a3 

2aa 
2a5 
2a<s 
2a7 
2as 
2a9 

250 
251 
252 
253 

25a 

255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27a 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28a 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29a 
295 
296 
297 
298 
299 
300 
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bbf71 =triple(07, 07,07); 
bb  t81 =  t  ripl ef 08,08,0*)  ; 
bb  T91 =triplef 0Q,09,  09)  ; 
bbflO] =  tride(10, 10, 10) 
bbTll J=triole(l 1,11,11) 
bb  [121  striplet  12,12,12) 
bb  fl3) =triole(13,13,l 3) 
bbna]=triD1e(ia,ia,iq) 
bb  [15] =trio1e(15, 15, 15) 


11 

:59: 16 

/* 

/* 

/* 

t 

/* 

1 

/* 

t 

/* 

> 

/* 

1 

/* 

1979 


dd(01  = 

ddrn  = 

ddT21  = 
dd[31  = 
ddfai  = 
dd[51  = 
ddf61  = 
dd[71  = 
dd[81  = 
dd[9)  = 
ddflO] 
ddfll] 
dd[12] 
dd  [13] 
dd  [iaj 
dd(15) 

ee  [01  = 
eeU)  = 
ee[21  = 
ee [31 = 
ee[ai  = 
ee[51  = 
ee  [61  = 
ee[71  = 
ee[81  = 
ee [91 = 
eeUO] 
ee  (111 
eef  12] 
ee(13J 

ee  naj 

ee [151 


trip 
t  r  i  d 
trio 
trio 
trio 
t  r  i  d 
trio 
trio 
triD 
trio 
st  ripl e 
st r vol e 
=  t  ri  ol e 
=  t  r  i  o  1  <? 
stride 
=  t  r  i  o  I  e 


eC 
ef 
e( 
ef 
ef 
ef 
ef 
ef 
ef 
ef 


00,00, 
15,00, 

oa,oo, 

15,00, 

1?, oa, 

08,08, 
00,00, 
00, 12, 
00, 15, 
00, 15, 
(00,  15 
f 15,08 
(08,  15 
(15,15 
(15,00 
(15,15 


f  [01  = 

f  ni  = 

f  (21  = 
f  [31  = 

f  rai  = 

f  [51  = 
f  [61  = 
f  (71  = 
f  [81  = 
f  191  = 
f  (101 

f  rm 

f  (12] 
f  [13] 
f  (iaj 
f  [15] 


t  r i  ol ef 0 
t  r  i  o  1  e  f  0 
t  ripl e ( 0 
t ri  pi ef 0 
t  ri  pi ef 0 
t ripl ef 0 
t  ripl ef 0 
t  rid  ef  0 
t  ripl ef 0 
t ripl ef 0 
=  t  r i  o  1  e 
=  t  r i  o  1  e 
=  t  r  i  d 1 e 
=  t  r i  pi e 
stride 
st  p.  i  o  1  e 

t  r  i  d  1  e  f 
triplet 
triplet 
t  r  i  p  1  e  f 
triplet 
triplet 
triplet 
triplet 
triplet 
triolet 
=  t  r  i  o  1  e 
stride 
stride 
=  tride 
st  ri  d  e 
stride 


0,00, 
0,00, 
0,00, 
0,00, 
0,05, 
0,05, 
0,05, 
0,05, 
0,10, 
0,10, 
00,  10 
00,  10 
00,  15 
00,  15 
00,  15 
00,  15 


00) 

OP) 

1?) 

15) 

15) 

15) 

15) 

15) 

15) 

08) 

,00) 

,00) 

,00) 

,00) 

,001 

,  15) 

00) 

05) 

10) 

15) 

00) 

05) 

10) 

15) 

00) 

05) 

,  10) 

,15) 

,00) 

,05) 

,  101 

,15) 


5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,1 
5,1 
15, 
15, 
15, 
15, 
15, 
15, 


0,00) 

0,05) 

0,10) 

0,  15) 

5,00) 

5,05) 

5,  10) 

5,  15) 

0,00) 

0,05) 

10,10); 

10,15); 

15,00); 

15,05); 

15,10); 

15,15); 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


*/ 
*/ 
*/ 
*/ 
*/ 


/*    white    */ 


/*  bl ack    * / 

/*  violet     */ 

/ *  puro 1 e    * / 

/*  maaen t a    * / 

/*  puce    */ 

/*  pink     */ 

/*  red    */ 

/*  o  range     */ 

/*  yel 1 ow    */ 

/*  yellow    -    areen    */ 

/*  green    */ 

/*  qreen    -    blue    */ 

/*  blue    -    areen    */ 

/*  cvan    */ 

/ '*  blue    * / 

/*  white    */ 


*/ 


/*    bl ack    */ 
/*       */ 

*/ 
red 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
qreen 

*/ 

*/ 


*/ 


/*  yel 1 ow    */ 

/*  bl ue    */ 

/*       */ 

/*       */ 

/*  magen  t  a    */ 

/*       */ 

/*        */ 

/*       */ 

/*       */ 

/*       */ 

/*       */ 

/*       */ 

/*       */ 

/  *  cyan     */ 

/*        */ 

/*        */ 

/*  white    */ 
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301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 

32a 

325 
326 
327 
328 
329 
330 
331 
332 
333 

33a 

335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 


clrtbl  (4,aa) 

clrthl  (5,bb) 

clrtbl  (6,dd) 

c 1 rtbl  (7,pe) 

clrtbl  (8,ff) 

return  ; 


/*****  ROUTINE  FOR  DISPLAY  PORTION  OF  PROGRAM  *****/ 

display  C ) 
( 

flag  =  0  ; 

erase  O  i 

screen  (0.0,  0.0,  100.0,  110.0  )  ; 

COlortCn)  ; 

COlor(15)  ; 

x  =  30.0  ;   y  =  69.375  ', 

/*****  AMPLITUDE  DISPLAY  ROUTINE  *****/ 

i  f  (  show  ==  1  )  { 
strtxy(40. ,80. )  ; 
strout  ("AMPLITUDE  DTSPLAY")  ', 
s t  r t  xy ( x , y )  ; 

seek(fd2,0,0)  ; 

for  (  i  =  0;  i  <  64;  i ++  )  { 

y  =  69.375  -  (  i  *  .625  )  ; 
for(  i  =  0 ;  j<64;  j++)  { 

x  =  30.  ♦  (  .625  *  i  )  ; 

read ( f d2 , &amo, 2)  ; 

color (amo)  ; 

block(  x,  y,  x+,625,  y+.625  )  ; 
> 

i  ♦  ♦  ; 

y  =  y  -  . 625  > 

for(  i=0;  j<64;  j++)  { 

x  =  69.375  -  (  .625  *  j  )  ', 
read  (  f  d2  ,  (iamo,  2  )  ; 
col  or ( amp )  ; 

blocK  x,  y,  x  +  .625,  y  +  .625  )  ; 
> 
> 

draw  (n)  ; 
show  =  0  ; 
chanae  (  )  ', 
return  ; 
> 

/*****  ROUTINE  FOR  PHASE  DISPLAY  PORTION  OF  PROGRAM  *****/ 

e  1  se 

if  (  show  ==  2  )  { 
strtxy(40.,80.)  ', 
strout ("PHASF  DISPLAY")  ; 
strtxy(x,y)  ; 
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361 
36? 
363 
36a 
365 
366 
367 
368 
369 
370 
371 
37? 
373 
374 
375 
376 
377 
378 
379 
380 
361 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
39? 
393 
39a 
395 
396 
397 
398 
399 
400 
401 
40? 
403 
404 
405 
406 
407 
408 
409 
410 
411 
41? 
413 
414 
415 
416 
417 
418 
419 
420 


seek(fd3,0,0)  ; 

for  (  i  =  0;  i  <  64;  i++  )  { 

y  =  69.375  -  (  i  *  .6?5  )  ; 

for  C  j  =  0 ;  j  <  64;  j  +  +  )  { 

x  =  30.  ♦  r  .6?5  *  i  )  ; 

read(  fd3,&oh,2)  ; 

color(ph)  » 

block(  x,     v,     xt.625,  v+.625  )  ; 

} 

i  +♦  ; 

y  =  y  -  ,6?5  ; 

for  C  j  =0;  j  <  64;  j++  )  { 

x  =  69.375  -  (  .625  *  j  )  ; 
readf f d3,&oh, 2)  ; 
color(nh)  ; 

block(  x,  y,     x+,625,  y+.625  )  ; 
> 
) 

draw  (n )  ; 
show  =  0  ; 
chanae  ( )  ; 
return  ; 
> 

/*****  ROUTINE  FOR  INTENSITY  DISPLAY  *****/ 

e  1  se 

if  (  show  ==  3  )  { 

Strtxy (40. ,80.)   ; 

strout  ("INTENSITY  DISPLAY")  ; 

strtxy(x,y)  ; 

seek(fd6,0,0)  ; 

for  (  i  =  0;  i  <64;  i++  )  { 

y    =    69.375    -     (     i     *     .625     )     ; 
for    (    j=0;     j<64;     j  +  +    )     { 
x    =    30.     +     (     .625    *     j     )     ; 
read  (  f  d6, 8.1  nt  en  ,  ?  )     ; 
col  or ( i  n t  en )     ; 

block(    x,    y,     x  +  .62S,     y  +  ,62^    )     ', 
> 

i  +♦   ; 

V=y-.6?5; 

for    (     j=0;     j<64;     j  +  +     )     < 

x    =    69.375    -     (     .625    *     j     )     ; 
read ( f d6 , & i nf en , 2 )     ; 
colorHnten)     ; 

block(  x,  y,  x+.625#  y+.625  )  ; 
> 
} 

draw  (n )  ; 
show  =  0  ; 
c  hanoe  ( )  J 
return  ; 
> 

return  ; 
> 

/*****  PROGRAM  TO  DRAW  AND  LABLE  COLOR  LEVELS  *****/ 
draw  (p) 
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421 

422 
423 

424 

425 

426 

427 

428 

429 

430 

431 

4  32 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 


i  nt  P  J 
( 

if  (  f 1 aq  ==  1  )  erase  ( )  ; 

col  op t  Cp )  ; 

COlor(lS)   ; 

strtxy(9.,18.)  ; 

strout ("LEVEL      0     12     3    4 

strtxy(20.,10.)  ; 

y  =  10.  ; 

for  (  j  =  0;  i<16;  !+♦)  < 

x  =  20.  +  f  5.  *  j  )  ; 

c  o  l  o  r  ( j )  ; 

block ( x ,y, x+3 ., y+4. )  ; 

strtxy  (4  0.,  28.)  ', 

strout  ("COLOR  [ABLE  " )  '. 

z  =  P  +  060  ; 

strtxy  (55. ,28.  )  ; 

out  (z)  ; 
> 

return  ; 
> 

/*****  INSTRUCTIONS  AND  INTRODUCTION  *****/ 

oaoe 1  ( ) 
{ 


strtxy 
st  rout 
strtxy 
St  rout 
Strtxy 
St  rout 
strtxy 
st  rout 
strtxy 
st  rout 
strtxy 
st  rout 
strtxy 
s t  rout 


4  0., 90.)  ; 

"16  -  LEVEL  COLOR  DISPLAY")  ', 

?3.,«0.)  ; 

"This  o  r  o  q  r  a  m  is  d  e  s  i  q  n  e  d  to  display  a  data  field  with 

23. ,76.)  ; 

"a  selected  16  level  color  table.   The  proa  ram  will  ") 

23. ,72.)  ; 

"convert  a  data  matrix  named  TPONE  from  ASCII  to")  ; 

2  3., 68.)  ; 

"a  6 'J  x  64  inteqer  array  and  then  display  the")  ; 

23. ,64.)  ; 

"maqnitude,  phase,  or  intensity  plot  as  selected ")  ; 

2  3 .  ,  4  0  .  )  ; 


"When  ready  to  continue  tyoe  the  letter 


ii  ii 


)  ; 


while  (  a 


i  -  i  _  i 


) 


a  =  retchar  ()  ; 
q  =  'b'  ■; 
erase  ( )  » 
return  ; 


oaae?  () 
( 


show  =  0  t 
q  =  'b'  ; 
strtxy  (20. ,80.) 
s t  rout 
strtxy 


s t  rout 
strtxy 
st  rout 
strtxy 
s t  rout 
strtxy 


inout  your  selection  for  the  TYPF  of"); 


"You  will  now 

20., 76.)  ; 

"display  you  wish  to  see.   Type  the  n  u  ™  O  e  r  '1'  ")  ; 

20. #72.)  ; 

"if  you  want  to  see  the  MAGNITUDE  riot,  tyoe  the")  ; 

2  0., 68.)  ; 

"number  '2'  if  you  want  to  see  the  PHASE  plot")  ; 

20., 64.)  ; 
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481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
396 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
50^ 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
53« 
535 
536 
537 
538 
539 
540 


strout  ("or  type  the  number  '3'  if  you  wish  to  see  the")  / 

Strtxy  (20. ,60.)  ', 

strout  ("INTENSITY  Dlot.  Followed  hy  a  CR.  ")     ', 

strtxy  (20. ,50.)  ; 

Strout  ("  1  -  MAGNITUDE  " )  7 

strtxy  (20. ,46.)  ; 

strout  ("  2  -  PHASF  ")  ', 

strtxy  (20. ,42.)  ; 

strout  ("  3  -  INTENSITY  ")  ; 

while  (  show  ==  0  ) 

Show  =  get  num  (10)  ; 
strtxy  (20. ,30.)  ', 

strout  ("rthen  ready  to  continue  tyoe  the  letter  'c'  ")  ; 
while  (  o  1=  'c'  ) 

a  =  retchar  ()  ; 
q  =  'b'  ; 
erase  ( )  ; 
return  ; 


} 


oaoe3  ( ) 
{ 


n  =  99  ; 

strtxy  (20. ,80.)  ', 

strout  ("If  you  desire  to  see  the  color  tables  that")  ; 

Strtxy  (20. ,76.)  ', 

strout  ("are     loaded  in  this  oroqram  that  you  may  choose")  ' 

strtxy  (2  0., 72.)  ,* 

strout  ("from  for  disolavinq  the  oata  tyne  the  letter  'y'")  ' 

St rt xy  (?0. ,68.  )  ; 

strout C   If  you  already  know  what  color")  ; 

strtxy  (2  0., 6^.)  } 

strout  ("table  you  wish  to  use   or  if  you  do  not  desire  to  spp 

strtxy  (20. ,60.)  f 

strout  ("the  color  tables,  tyoe  the  letter  'n'  ")  ; 

while  (  a  "  'b'  ) 

q  =  retchar  (  )  ; 
if  (  q  ==  'y'  )  showclr  ()  ; 
erase  (  )  ? 
c  0  1  o  r  t  (  0  )  ; 
color  (15)  ; 
strtxy  (20. ,50.)  ', 

strout  ("Select  fhe  color  table  you  wish  to  use  ")  ; 
strtxy  (20.,4o.)  ', 

strout  ("  0  -  Greys  1  -  Blues")  ; 

strtxy  (20. ,42.)  ; 

strout  ("  2  -  Greens  3  -  Reds")  ; 

strtxy  (20. ,38.)  ; 

strout  ("  «  -  Mixed  5  -  ^ixed")  ; 

strtxy  (20. ,34.)  ; 

Strout  ("  6  -  "ixed  7  -  "ixedn)  ; 

strtxy  (20. ,30.)  ,* 

strout  ("  R  -  Mixed  Followed  bv  a  CR  ")  ; 
whi le  (  n  ==  99  ) 

n  =  qet  num  (10)  ', 
O  -   D    , 

erase  ( )  ; 
return  ', 
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sal 
5a2 
5a3 
5aa 

5a5 

5a6 
5a7 
saa 
5a9 

550 
551 
552 
553 
55a 
555 
556 
557 
558 
559 
560 
561 
56? 
563 
56« 
565 
566 
567 
568 
569 
570 
571 
572 
573 

57a 

575 
576 
577 
578 
579 
580 
581 
582 
583 
58a 
585 
586 
587 
588 
589 
590 
591 
592 
593 
59a 
595 
596 
597 
598 
599 
600 


*****  PROGRAM  TO  DISPLAY  COLOR  TABLES  *****/ 

howc ]  r     (  ) 

flag  =  1  ; 
erase  (  )  » 
for  (  i  =  0;  i  <  <*;  i  +♦  )  < 

a  =  'b'  ; 

draw  ( i  )  > 

setrrode  (0,0)  ; 

strtxy  (SO. #50.)  ; 

strout  ("  Next  color  table  ?  y  =  yes  ?  n 

whi le  (  o    --    'b'     ) 

a    -    ret c^ar  ()  ; 


=  no  " )  ; 


if  (  q  ==  '  n' 
else  continue 

} 

colort  (0)  ; 

color   (15)  ; 

erase  ( )  7 

return  ; 


)  i  =  10  ; 


yoe  the  letter  'c'.   If  vou  want  to  auit  tvoe 


*****  ROUTINE  TO  CHAMGE  THE  FYPF  OR  COLOR  OP  THE  DISPLAY  *****/ 
hanae  (  ) 

a  =  'b*  ; 

St  rtxy  (20. ,90. ) 

strout  ("If  ycu  want  to  chanoe  the  TYPE  or  COLOR  table  of  the"; 

strtxy  (20. ,86.) 

St  rout  ("disolay 

strtxy  (20. ,82.  ) 

strout  ("the  letter  'a'.")  ; 

whi le  (  a  ==  'b'  ) 

a  =  retchar  ()  ; 
if  (  a  ==  'q'  ) 

finish  (  )  ; 
el  se 
{ 

erase  ( )  ; 

oaae2  (  )  ; 

a   =  'b'  ; 

strtxy  (20. ,80.)  ; 

strout  ("If  you  want  to  chanqe  the  color  table  selected  tyo 

whi le  (  o  ==  'b'  ) 

a  -    retchar  ()  ; 

i  f  (  q  = 

erase  (  )  ," 
oaoe3  ()  ; 
> 
> 

display  ( )  ? 
return  ; 


finish  () 

( 
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601 
60? 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6l« 
615 
616 
617 
618 
619 
620 


c  o  1  o  r  t  (  0  )  ; 

color  C15)  ; 

e  rase  ( )  i 

St rtxy  (20.  ,80.  )  ; 

strout  ("You  have  indicated  that  you  wish  to  terminate  this  <?f 

strt*y  (20. ,76.)  ; 

strout  ("if  you  do  wish  to  stoo  tyoe  a  capital  '  S '  .   0 1  h  e  r w  i  s 

st  rtxy  (20. , 72.  J  ; 

strout  ("type  a  ' c '  and  you  can  continue.")? 

whi le  (  a  ==  »b'  ) 

a  =  retchar  ()  ; 
if  (  a  ==  'S'  ) 

exi  t  ()  ; 
else 
{ 

erase ( )  ' 

chanae  ()  ? 
> 
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